UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


oO 
o 
b 4 
<a 
a 
=) 
ra 
w 
> 
* 
* 
oa 
os 
- 
o 
w 
st 
a 
vr 
* 
Sal 


Soooooooooo 
Soooooooeoeo 
oo oo oo 
oo oo oo 
oo soo oo 
oo oo oo 
oo oo oo 
oo oo oo 
SoOoooooooo 
Sooooooooo 
Soooooooooo 
SOOCOOOOOOCOoOO 
oo oo oo 
coo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
oo oo oo 
Soooooooooo 
SOOOOooOooooo 
af of ae a oe oe 
af af of af of ot 
24 a4 
4 a4 
a4 
a >t 
Ps 4 
a4 
bf of of be Oe NE Of Oe OO oa 
wo ot Oe of Oa Oe Oe On Oe Oe Oe One Oo 

+ > > > > > >>> >: 
<< 
<< <= 
<< < 
Ss, SS << 
<< << 
Lt << 
£6 £.6.5.5.3.35 oo" 
aqaqaqacaccaeaeacaacc 
aaaa 
aaaa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aaaaaaaaaaaa 
aaaaagnaaaaaa 


LLLLLLLLLL PP 
LLLLLLLLLL PP 


a ee ee oe ee ee oe et rod 
a ee ee oo 


Ci hd Ld 
LAD dL 


3335335353535 3 


; 


33333333353355 


LLLLLLLLLL 
LLLLLLLLLL 


ee ee ee ee ee ee ee es es ee ee 
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contents 


1 Declarations 
ete og | Data 
Read/Write Data 
4 General Data Buffers 
LPA11=K Subroutine Library Argument Lists 

1 RMS-32 Data Structures 

4 Test and Device Initialization 
86 Test the LPA11-K 

One-Shot Testing 

1 Finish Testin 

7 Common Subroutine Caller for Multirequest Mode 
AST Level Completion Routines 

Error Checking Subroutines 

Timer Expiration Routine 

System Service Exception Handler 

RMS Error Handler 

CTRL/C Handler 

Error Exit 

Exit Handler 


SOONVUS ONIN VIN 


Roronnnn ee 
Fas 
USO 


H 
UETLPAKOO VAX/VMS UETP DEVICE TEST FOR THE tpattex 16-SEP-1984 01:27:21 VAX/VMS Macro v04-00 Page 1 
v04-000 B28Ep=19 4 4:35:26 UETP.SRC GETLPAKOO. MAR; 1 (1) 
TRL aM asf VAX/VMS UETP DEVICE TEST FOR THE LPA11-K 


-ENABLE SUPPRESSION 


MARAAAAAARAAAALALALSALALASSAAL AEE EASES EES RS RE EASA SAR RR EASE REESE RESETS SO 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS crn anee UNDER A LICENSE AND MAY BE USED AND og ta 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
I F E NY R 
PER 


E T_NO 
hy pad MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeePORatitn. ” NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS Bf 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


LIT 
S NOT SUPPLIED BY DIGITAL. 


eaeepeeneeeeneeneaneeaennnnne 


& 
® 
ft 
® 
® 
* 
® 
* 
® 
® 
* 
® 
® 
® 
® 
® 
® 
® 
* 
® 


=MARBRAAARAAARAAAAASALALAASAAEAS ARAL ARS SSE LARRAAS ARREARS ARERR RRR SAAR SA RRR SAS SY 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


“FACILITY: 
This soduls will be distributed with VAX/VMS under the CSYSTEST] 
account. 


ABSTRACT: 
This program tests an LPA11-K on a VAX/VMS system in all the LPA11-K's 
modes of operation. 


a. 

This program will ~~ in ar scqees mode, with ASTs enabled except 
during error process ng epengent on the LPA11-K microcode 
loader process ( oFenc juPAtisiat: OM) having already been started. 
This presres ce eguires the following gr tvs ogre and quotas: 

LTPRI (Not normally used. See functional spec.) 


AUTHOR: Richard Holstein, CREATION DATE: August, 1981 
MODIFIED BY: 
v03-004 penoee? Richard N. Holstein, 15-Feb-1984 
Take odvente e of the new UETP message codes. Fix SSERROR 
interaction oF th RMS_ERROR. 


v03-003 RNHO006 Richard N. Holstein, 19-Dec-1983 
Give correct sentinels to Test Controller. 


SAME ADR SO OO NAME WIN O OD NAME WIN SO ODA UE WN 0 OD NAME WS OOONOU Ewin 


a Da a ne | a |e | we ee we ee ee we ee www loo lolololololololelelelolololololololololololo) 


DAA UT BB BBB EB BAW rnononononononononong 2 


Be Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ‘oe 


Soooooooo 
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v04-000 ets 84:55:46 UETP.SRC SESLPAROOS MAR; 1 * dy 
0 28 3 v03-002 Rent0003 Richard N. Holstein, 10-Mar-1983 
: - -, for ton er devic ce names. Be more cautious when boosting 
60 ; lb oh ty. Reload orig nal eigresede, if any. Don't signal 
1 ; ending esate in EXIT HANDL 
8 88 : V03-001 RNHOO04 iard N. Holstein 15-Oct-1982 
64 Miscellaneous Stass ‘Tisted in the V38 UETP Workplan. 
o 66 : v02=004 MTROOO1 Michael T. Rhodes 17-Mar-1982 
? ; Fis continuation of ASCID string’ defined at *CONF IG _MSG: 
8 4 63 ; v02-003 RNHOOO03 Richard N. Holstein, 24-Dec-1981 
O60 oy : Miscellaneous cleanup. 
00 i ; v02=002 RNHO002 Richard N. Holstein, 12-Oct-1981 
0 8 fo 3 Do multiuser bese oy asynchronous Ly to prevent buffer overruns 
444 ee 3 on fully laden LPA11-Ks. Set SETPRI so we can change priority. 
$509 £6 ; V02-001 RNHOO01 Richard N. Holstein, qonmug~ tei 
0000 ws Final testing and development for Field Test 1. 
0000 78 ; 
0000 79 3%* 


SYSSLIBRARY:LIB.MLB for general definitions 
SHRLIB$:UETP.MLB for UETP definitions 


+ MACROS: 


Condition handler frame definitions 
Device definitions 

Device Information Block 

SGETDVI ITMLST item codes 
Job/process info 

LPA11-K specific 

Privileges 

Shared messages 

System Service status codes 

Status return 

34 unit block offset definitions 


PAAMAARAAAAAHAGNS 
MH4nrt DY Vom =s 


C 
D 
D 
Dd 
J 
L 
P 
S 
$ 
S 
U 


TUNTDEF 
SUE TPDEF 


: EQUATED SYMBOLS: 


COOCOOCCOCOCOCOOOCOOOOOCOOOOoOOSoOOo 


SOOCOCOOCOOOOGOOOSOSOSSOSOOOSOSOSOOSSSSOSSSOCSOSOSOSOOOOCSOOSOOOOOOOOOOOO 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


: Facility number definitions: 
RMSS_FACILITY = 1 


; SHR message definitio 
UETP = UETPS_FACI 


00000001 


TYa@STS$V FAC_NO ; Define the UETP facility code 
' 


Cc 
wv 
m 
z 
i=] 
=] 
" 


ABENDD”; Define the UETP message codes 


ooooofo 
SoSooSoO 
ANN 
PRR RRS 
HHH 
-=CO0000 
WooOWMo 
SMWOWDOO 


= 
PS"ENDEDD = i E 
UETP$-OPENIN = UETP! SHRS_OPEN 
UETPS-TEXT = T 


CSOOOCCOSCOSCSOOOOOOOOOSOSOSOOSOOOOSOSOOSOOOOOOOOOOOOOoOO 


DSOOOOCOSOSOSOSOSOSOOOOSOSOSOSOSOSOSOOSOOSOSOoOO 


DRA A AA AIGIPINIPINININIPININIDS 9 9 9 OP | MQOOOTOCOCOCCOOCOOOOOOOOOOWcoCDCD CD CD CD CD CD 


NOMA WN 9 OO NIA UNE WIN OOD NAN EWN OS OD NOA NE WN SO OD NOAUE WP OOONOUES Wn 


SOOQoooooQooooooQoooQooooQoooQooooooooooooooooooooooooo 


ee a a a a ss — 2 8s Ss ss ss os Ls ot 


; Internal flag bits...: 
00000001 TEST_OVERV = 1 ; Set when test is over 
000 Ob08 SAFE _TO_UPDV = § ; Set if it’s safe to update UETINIDEV 
000 $89 BEGIN MSGvV) = ; Set if ‘BEGIN’ msg has been printed 
00000 3 ONE _SROTV = 4 ; Set if running in one-shot mode 
00000005 DUMP_MODEV = 5 ; Set if additional error info printed 
: ++ and sPersagend ing masks: 
4 : TEST_OVER = TATEST_OVERV 
SAFE_TO_UPDM = 1a@SAFE TO_UPDV 
100 BEGIN_MSCM = 1aBEGIR MSGV 
000001 SAOT = 1@0NE_SROTV 
000002 DUMP_MODEM = 1a@DUMP_MODEV 
3 Riscos any: 
° BITM = “x20 ; Mask to convert lower case to upper 
0 REC_SIZE = $8 3 UETINIDEV.DAT record size 
12C¢ TEXT_BUFFER = 300 : Internal text buffer size 
4 EFN2 = : EFN used for three minute timer 
3 SS_SYNCH_EFN = 3; Synch miscellaneous system services 
F MAR_PROC"NAME = 3 ; Longest possible process name 
A MAX-DEV_BESIG = 1 ; Longest possible controller name 


J 
UETLPAKOO VAX/VMS VYETP DEVICE TEST FOR THE Y oatiek 16-SEP-1984 01:27:21 VAX/VMS Macro Vv04-00 Pa vET 
v04-000 Declarations met 4:3 746 DE TP SRCTUETLERKOD OMAR: 1 - 3) vO4 
: -SBTTL Declarations 
INCLUDE FILES: 
| 


vlssas™® 


VAX/VMS 


ETP DEVICE TEST FOR THE 


Declarations 


00000005 0000 


138 MAX_UNIT_ 


Ceakton 1grsBPn196e 13732) 


AX/VMS Macr 
UETP.SRCJUE 


in 


v04 
PAK 


OB MAR: 1 


DESIG= 5 ; Longest possible unit number 


oly 


en 


+ 
+ 


In order to allow for word size displacement when ivaning this image, 
and to make for a nice layout of the program text, some mucking about 
with .PSECTs has been done. In particular, the BUFFERS -PSECT, because 
of its attributes, is the first .PSECT to be loaded ote virtual 
memory, allowing word displacenent fo other -PSECTs (i.e., longword 
items in the 
anging anything which might change 


Sooooocoo 


displacement addressin gos 5 s only needed to reference 
our ERS .PSECT). BE CAREFUL when cha 
the order in which .PSECTs are loaded 
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TLPAKOO VAX/VMS YETP DEVICE TEST FOR THE teat tek 1 me 4 01:27:21 AX/VMS Macro V04-00 Page 
Ye tb0 Declarations “SEP-1 138 84:35:26 UETP.SRC GESLPAROS MAR; 1 . (3) 
140 ; ears specific definitions: 
00000000 12 B_PRIORITY = 0 ; Priority to run LPA11-K test if... 
16 3 220(.GT. 0) and (.GT. base priority) 
0900 005 14 JPI_EFN = EFN2+1 : EFN jor SGETIPI completion 
173A51 144 CLOCK SPEED = *F0.0002 3; LPA11-K clock A rate 
¢ 145 GT_BOF SIZE = 30 : Size of channel status area 
146 NUM-CHARNELS = 3 Channels to. test on Nagy Un 1/0 bus 
A 14 LA_R_OVERRUN = °0243 ; LPA11-K e code for dat exerts 
133 SETIBF = 0 3; Code for “LPASSETIBF ve ONCE. F R_EACH 
° 1 0 14 SWEEP =] 3; Code for tPARR routines in ONCE ~FOR_EACH 
150 RLSBUF = 3; Code for LPAS ey —_ ONCE_FOR-EACRA 
8 13) LAST_FUNCTION = ; Maximum ONCE ACH code value 
1 1 ; MU_TIME_OUT = 24 ; Maximum tines i-. L poll SWEEP COUNT... 
4 15 3 «to see if multiuser sueens Rave... 
0 154 i «eefinished. We actually wait for... 
0000 132 3S ce MW, TIME “OuT#F IVE SEC NDS 
00000800 0000 133 WRITE_SIZE = 2048 ; Data buffer size (write/read) 
0000 158 .1IF NE WRITE- _SIZE81, “ERROR 0- 
0000 159 WRITE_SIZE must be even for dedicated sweeps 
0000 160 .JIF LT WRITE_SIZE-258, “ERROR Ae 
0000 3 161 WRITE aust t be Se, 258 for dedicated transfers 
0000 168 TIF GE <WwRITE_SIZE*NUM_ EHANNELS#23=3¢ 68, .ERROR 0- 
44 19 Aggregate buffer size exceeds 32768 
00000800 0000 165 RAMP_HEIGHT = neta tite ; Size of AA11-K ramp data buffers 
00000000 0000 166 DEVDEP_SIZE =0 ; Device dependent part size of node 
00000000 444 + 4 BUFFER-SIZE = 0 ; We don't use this = allocated statically 
0000 198 PAGES = <<UETUNTSC_INDSIZ+- ; Add together all of the pieces... 
0000 170 DEVDEP_ STZE+- > eeewhich make a UETP unit block... 
0000 171 BUF FER-SIZE+- 3 «..to give to the SEXPREG service... 
00000001 0000 76 511>/5T2> 3... later 
0 3 17 
000 174 
0000 175 
0000 176 
0 | 177 
0 178 
0000 179 
0000 180 
8 0 18 
0000 188 


ooooooo 
ooooooo 
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v04-000 Read-Only Data . 


53 45 54 53 59 53 Geneeee 'wieeerey” 
41 50 4C 54 45 55 setae yf 
0 48 

50 55 53 54 45 55 serrated We iy + 
6 45 44 

41 GE 4C 52 54 43 seperate iy | 
45 4D 


45 44 4F 4D 00000049'010E0000' 


4E 49 24 53 59 53 email ig gt 
54 55 5 


0020 0040 
0000000C *00000014' 
00000000 


21 20 42 58 32 21 setae iat tt 


2A 20 42 58 32 21 eneeede tame * 


65 25 7895 6] somrog-grogoey 
43 2F 4C 52 54 0 


5 £5 98 98 95 98 guognge-grganey 
E 64 65 69 66 69 


—DOCOOOOOO 


vn  NOOOU TN "HM 


SUPDEV_GBLSEC 
-ASCI 


OOoooococs oso wovowow owow wowowvo 
a 
a 


NOUESWN—O0O ONO WFW FO OONOU 
= 


oO 
Aaa 


FP} YS OOO OOOO NIN NN NAAAAS MUNIN ELLE 


SME HS ES $WIWWIW & FS LONMNPPNIM HNN SO OU CO CO Oe 


LON 
NRAT_LENGTH = 


64, DVI$_DEVNAM 
BUFFER. BUFFER PTR 


Ove Wr OVOONOUFSWw O-"OOR® 
o 
wn 
— 


COOOCCSCCOCOCOCOCOOCOOOoOoSoooSo 


rorore POPIMD POPPY POPOPOPONIPONEPY oo PUPOPOPOPOPoTonofnonofnonn—— sa a a 


nonono RONIM POROMRD RSs DOO 


oco~s 


NO_CTRLNAME : 
ASCID 


SOOQOoOooooooooooooooooooooooooooooooooooooooo 


MOVIOOoO 


Oi gre) AX/VMS Macro V04- 


. 
- 


/No controller specified./ 


0 Page 
UETP.SRC SETLEAROO MAR: 1 . (2) 


EXE attribute changes .PSECT ordering! 


; Process name on exit 


This test name 
How we access UETSUPDEV.DAT 
Logical name of controller 


Run mode Logical name 


List of errors for which... 
«eeRMS cannot deliver an AST... 
-..even if one has an ERR= arg 
Note that we can seers table... 
««eVia MATCHC since <31:16>... 
«espattern can't be in <15:0> 


Name of device from which... 
«+ethe test can be aborted 


$GETDVI arg List for SYSSINPUT 

We need the equivalence name 
Terminate the List 

Device class and type control string 


; Device class-only control string 


\Aborted via a user CTRL/C\ 


UVETLPAKOO 
v04-000 


E 
ELL LELELLE ¥ 
PULL PEELE LA 
2 32 1 tt E 56 23 44 4 
B 
69 6E 75 20 6F 4E 00000133'010E0000° 

SEERA SRR HEE He 
61 67 65 6C 6C 49 pooner 72"gi0 0000° 5 
BBE oe ES aE GS Tae Bi 
41 44 2E 4 3 4h 3 4E 49 54 45 33 ii 
21 54 i 
5 
os 95 38st a5 some glopgoug’ B18 
61 8 65 74 69 20 4C 38 21 20 68 74 oF 
44 25 21 20 74 61 20 73 6E 6F 69 ge AB 


FFFFFFFF 94862E00 


65 6C 69 66 000001F5'010E0000° 


64 72 6F 63 65 72 00000201'010E0000" 
1 20 53 4D 52 0000020F '010 8099" 

0 6E 69 20 72 6F 7 43 65 20 
arti 41 21 20 65 6C 69 


Bh SP OF oF 


FIED IIIA III II) tt a i dh oh oo 


PEF FLUMPNININ "COO TMWBMMMMMMMoOVOVVCVTOCOWWOW 
tO FOO SS NUN VOOOT OS OMS 9 ONO Oooo =~ 


SOOO OCOOOOOOCOOSOOOOOOOOOOCOSOOOBOOCOCOOCOOOOoOO 


MPN = FIPROTO es FOPMOPOPOPOPORoPoPoPoNoPongnunn es FUT 


DAP & & 


332 


oon 


SOON NE WN "OOONOU 
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Read-Only Data 


DEAD_CTRLNAME : 


=$85-1986 04:55:46 


AX/VMS Macro V04- on? 
UETP.SRCJUETLPAKOO.MAR; 1 


<ASCID /Can't test controller !AS, marked as unusable in UETINIDEV.DAT./ 


ILLEGAL_REC: 
-ASCID 


PASS_MSG: 
-ASCID 


INIDEV_UPDERR: 
.ASCID 


THREEMIN: 
LO 


CONT_DESC: 


WORD RE 
ADDRESS BUF 


FILE: 
eASCID 


RECORD: 
-ASCID 


RMS_ERR_STRING: 
~ASCID 


PROMPT : 
ASCII 


PMTSIZ = 
LPA11K_PRIORITY: 


/No units selected for testing./ 


/ILlegal record format in 


/End of pass !UL with !UL 


file UETINIDEV.DAT!/ 


iterations at !%D./ 


; Error during exit handler 
/Error updating UETINIDEV.DAT./ 


=10*1000*1000*180,-1 * 
C_SIZE,0 : 
FER 


/file/ 


/record/ 


3 minute delta time 


Boagripter used to convert controller. 
-from lowercase to uppercase 


Fills im RMS_ERR_STRING 


; Fills im RMS_ERR_STRING 


; Announces an RMS error 
/RMS !AS error in file !AD/ 


/Controller designation?: 


-~PROMPT 


/ 


; Logical name allows user... 


UVETLPAKOO 
v04-000 


4B 31 31 41 28 ef 


72 65 73 75 


6F 74 20 65 75 67 
6C 61 


2D 6F 74 2D ° 


72 65 76 6F 20 64 


im 


Vine VENOO 
NRMNPN MVEA 


NUN S&S 
mou W VWIWwtf 
Fun lnnvneo 
MPLA OOF 
aN =O POUT 
MONO NON 
—"EFOoo LOror 
FOVEO NWO 


SNONNM WEOrwN 
ROW VST 


go 6 8) 
6E 61 20 8 & 
5 6C 61 76 20 74 
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Read-Only Data 


a9 52 UF 4 80 50 
00000000 
00000001 
FFFFFFFF FDOSOF80 
00000000 00002000 


69 74 6C 75 6D 00° 


0' 
1 


3 


o 
“ 
o 
Ww 
~“ 
~m 
an 
mn 
NO 
Wo 


000002 
6E 69 


_ 
eo 


COn—- O—n 
MMV PMNOOO—9 9 099 ONO 07 NNT OOO NN 


an RMN ODDOW DS D \ VP WOOO VION AAA AAOAS MIMI 


NMOINVEN & 
MOO" Ww" 
NMNOENTON 
RNOOVIMMUOW—— 
FMV LANINANMAAS 
NOV ro —F0SO 


SFOONo 


Hat 


SOOOGOOOOCOOOOCOOOOOCOCOCOOOOCOCOSOOSOOOOOOOOOOOOOOOOOOOO 


Bor ~s 


267 ~ASCID 


LITERAL_0: 
0 


LITERAL_1: 
. LONG 
FIVE_SECONDS: 
. LONG 
NEEDED_PRIVS: 
. LONG 
MU_MCODE : 


-ASCIC 


AD_MCODE: 
.ASCIC 


OC WOON NOOO 


FW MH" OOONAUES Wit" 0 00 


nmr 


285 DA_MCODE : 
86 LASCIC 


7 FO_MCODE: 
8 »ASCIC 


89 
290 LOAD_BAD_ERR_MSG: 


~ASCTD 


292 
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/LPATIKPRIORITY/ ; «to easily set job priority 
0 ; For miscellaneous subroutine calls 
; ; For miscellaneous subroutine calls 
; S-second delta time 
-10000000*5,-1 


1QPRV$V_SETPRI,0 
/multiuser/ 


/analogue-to-digital/ 


/digital-to-analogue/ 


/forced overrun/ 


; Bad 
\Error loading !AC microcode,!/!_LPA11-K 


; Privileges needed to run our test 
; Each of these... 


3 «.emMay be used in messages... 
3 .-.to distinguish the mcode... 


3 ...0r section of the test 


error during microcode loadin 
tatus Out: %0!08,\- 


\ Control Out: %0!0B,!/!_Maint Status high,low: %0!08,%0!08.\ 


93 
$54 LOAD_MISC_ERR_MSG: 


-ASCIB \Error loading !AC micro 


9 
339 BADRATE_ERR_MSG: 


; Misc error during microcode loading 
code.\ 


; Error calculating clock A rate 


ASTID /Can't compute clock A rate and preset value./ 


399 
00 SETUP_ERR_MSG: 


; Error setting up buffers 


ow 
| ~ 
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eo = rt 
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ae c- ve wuw- = o 
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o- co °o o o °o c °o c oO oa °o 
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ww o- ' = oe 
= oOo a a Oo 
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ot =e won ae an =e uo, 
« Vv we Ov ww we we Mv 
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— @ a = @ i [74 
” w w i i z ws 
w ” 1 “ we —_ t 
fh 4 a an > « bw 4 
w wi @ @ [. 4 w 
w ae w a = w oO 
v iv) =z Zz =z > ad 
— a w — Cal Oo wo 
> 
ws _— wns nor ooo -—Ne wT nor co o oO e&wvrPe 
ons oO ooo ooo coo-— -—— — eo — ae NN fCUN 
| 4 ~ nwrwr mew meen meme ~~ ene ~ Lal -— aOR 
-oS 
w 
DP WWMe Ou & OOMDDDOWOOODMRMOVVYVLONWd = OOM VV CL ONWE = OOM OVW OG. OOO 
~ MOO d de eI MVOOOOwWe & & LOK NCUNICIM FMM ORF. CMV O OW. LOK NIUE FMW ORFF” 
2 EE od eh heh eh ph ph eh eh eh le dd Se ea be eee ee eee eaeeanheabnss & & & & & 44,4, 4) 4,4, ALA a ee a) 
=? COOOOOOOOSOOSOCOOSSOOSOSOSCOSOSOSSOSOSOSSOSOSOSSOOSOSOSOSOSOOSSOOCOOOCOOOOOOOOOOO 
~ oO eo = a o = oe had 
xs OMrm one ome owvus, ove VOOCOO ZACK Ow — VOOO LZ QOLMNOMNNOOO So 
ouwnc Oownmnonm owe omaw ONT HK MMO Oe OWNS KH MNMO— De &NWOK. COU Oo 
- Tom -uUsTw oak eed od) -TOr eV wT uUUMNOou HN a TU UMNO KK WVTOOOO - 
orowr owuworw our Or-wo Or OCU TF OMOOT OR. OCUR. TF OWOVOTWEF ONMOOO So 
ow~wsw KeNne fore  o) Mine w TOO 8 rm Wie wr TOO Rn wm We WP a Cr. & [.°) 
~ ital goo miata Cue OOM TOSS | a taal tertliatiintnanaiaaated = 
oon o-w owe) oONem OustuTuvewTou Ow sa Tue TK TOVUNE MOON [=] 
ows Ome oor Owmo OP MOMNIN LOOM SORVOMNNEL OV WONT MO [=] 
owor oro owr ouwo OOrF wh wr wreucur ODOR SR SRN OUR (COO So 
wr Moo Mun NOow NO OM KL VMUU MOK—OMYVENMV KON wT w 
roo wow roo wToNo TNOMRNOWNOY TVOKRWVOTHNO WORD KP wv 
Woo wwe NuewN Nw New O VUTur NewenO Vere 46 NWM OO ON 
~eouc row roo rowor KNOWN Or Ow KNOTN ONO POR CUP ~ 
nen Nr woo NN ew NeMerw Orr hu NeEeMew Oech ONW ZT aw N 
° ro ror Ku r~owow KTM sr NOR YS Rremesr NNCOR OF-CEN OV ~ 
wow uOw nw uOow SMO wewaty MON wes WMOO uu koe 
3-4 or oNO orn our oroOmMmr ARMs ov NR TE NO CO oO 
ao wo-90 Ne Oo Now NOK NOMnoTry Me-now NMOMOoOWT MeNOoO MWwOw tw N 
4 ‘ ~wOo r~wo ~~ ~oOowo NONE ORCC KNONFM RVR KONO CO ~ 
OrNvo@ac wenn oOvyrNvo@a<c wenn Tr OO [=] 
— J RSNA RAR RSS RAR SAAS Nn ™N 


1 
( 


| 


| 
J 
@ = 
| a 6 ra 
o = a 
a bg ‘ w 
gy ao] =~ a 
| wv oa oe x= « 
ao) e€ @ Quw ) Oo 
- . OJ € 3 - o 
ss @ c — ~@ zB t 
<= °o ow w o 
<= c 2 n 7) aw a Vv c™ 
= =) eS n " w 2 a 
oO - = S a] ow Ew oa o £°e 
oo & ° Vv J @- <= ww 
1o a °o ° -c oO c™ ~®@ 
wat a > ,) . é. nw all -— s a 
oac Ss °o ~- a a ~a <« @ ~a 
>a. ww @- “sz — cw ae 
| a ea on fe ce co eo 
or w rc eos co co ~n ) —~ @v 
tw @ £2 a=] a=] vn nw =“ we Zz 
vD a) a] a o oe ow e ° —< “oO | 
on 4 -—~ °o °o tv re) w wv we 
; a) om aw ca =~ ~ ©£o °o < cw = 
a ~ iS) ea ou {= w oe ouw 
mn '‘o ‘= Qw a a ,.a a ° 7a oa 
= - ow °o | ao] ao] c « " s@ 
>a. c - “Oo ° °o - Ct) w or -—-©@ 
~e che . v (s) a a oa ~To ~s 
w<uw .S) — ee Ee i= -vo “ < 2a —W 
<zo er - -sS oe oO t— 2 
> co ™ <a & € ° ra par “ = 
cc we ac YD a nm - < n- @ 
oc ~c ee - ad c Cc a °o ow 
—~O ve 22 7.) w .@ a=) t ee a es 
ws co ow Ow ~ ~ ou ~ A = e- o-- 
oo oe “vo we zi 7) ” 30 S o w — et nw 
Kn a _- v o - -— o —~ 
cur >. 4 > _—_— ory *. AD uv v [ve] oo . re | 
* of $ o <= é. A = ri Ee 
- wv — a cs) mm wo a 
oo _ o oul ad - A e 
= - ~~ e€ vw ~ o 
ww < o Cc iw — Vv - 
a000 wo °o , 4 b 4 ao w c 
on v [ve) 4 c aw o 
-—— <= we = ] e — Pd od (*) ~ r -4 
‘6 eo =) c [+ 4 - A c an “" - 
aa a | w < oOo Cc eo — oe 
ww a oo o a a _ > «€ 7) - 
MM i CY - 4 aud Vv je ¢€ eo 
| —- a=] oO A °o Zz 
own a w oul € ”_ - 60Uw® .e 
- ot - a ~ < a - Tr = — 
a o (s) « ol ca v _ — = | 
bw 7) c - w a] n = —_ eo °o 
‘ > oa w ~ 7 a) c 
- (= a=] a << =< 7) . iT) ue ao] 
oOo °o ~ ao) oO w CY v oa oe 
—_< ee Ss a ” CH ° _ seal € 
be eS ° ° << > = - > c 1 
ow w v z ot ” on — oa 
sal ~ ~ = ~ ~ =“ =“ a lt ~ ~ 
x= Oo - oO 
_— “oO ar =) “oO “Oo wo o f=) a =) 
oOo- ze on Unt oOo ae oo ome -- 
a Mv we WV Ov <u “VW ov we 
Oo zw aw zw aw zw «cw ww -w 
o el act <= ac —< we z<« >< 
ae we ae te te a. te oe 
_— ec et < ac a < uw 4 
wn” w z w w (vu) Oo ” ao 
uw 4 = i a a I <a [vy] 
-— b 4 > a =< <= c-¢ vw I 
- oO w oO oO a a z 
w - ‘ 4 a | 0 a 
vw a oO <= < < oO at Oo 
~ o-@ 2 = _ 4 z @ Vv 
w TNO oOo o-mw MTN Orc ao ~N m" wT wmor ooo 
ae cur curs mere lt al BO all ll | | \ ft be on wT wr wT www www 
a 4 mew more moe me BNP mere La) ms w- mee mewn 
-oa 
w 
D> wetwoooa OOOO ——u OF-MOOCOTOOOTOe ne m— uw MuTOVUOu Ow OOVOWTOvrOeoaa 
—[— ODADAS MV VV VO We. &. EO NIKKI CIM MIMIPN TAA coco Oo. S88 oO NN 
NC WMANAMNNANNAALALAIALANUULEN OOOOOOOOOO COOWOoOoooowowovor OOODOOCOOrRLLPL 
eo COOCOCOCOOCSOCCOSOOCOSCOOCSOOOSCOOOOOOO OOOO OOOO OOOO 
~ wo — ee o = =o = i = 
=x<eo more oOmenw Owe OoOowon own can OMOLMNVOVEMOMEM orm) 2 
= 4 ~own are oe Soon > al ead a eS eae Boorse Ss 
T~@Doo ownwrvu ouw omown om ov Ot OK OF ATMOUMN WOO UY OoVvuownu o 
wor wowrwo wor wowrr aan ad Sr SO Sone ¥ 
-Ov _ ee TNA TRMWUINOO WT -Ooov - 
or o ow CWOOOR.ONOONT ORNS ormnwo ° 
[ve] wo HA QAMNN — TOPO MOOT — WIPMIA SUN wo 
Ss ad -* aletieatiaatataattstetatantattiated wuOwowono te 
So ou SOVUUM COW TMOG OWING } Pee i=] 
o o- Ovxn.ow voovor-oonm wee S 
oO ow SOTONO NOUR NOMS oor.r 
Vv Mwr TOMOr OMVO-— OOK OomuO wr 
~w Wy MACON ChwTOMOONWN rr Or w 
- own Or-uws 22 YY Ow WOVEN oa 
wv Wwe ororr OCOVwe Ww OM oor. o oO 
v mo WewTuO Onv w oo 
w mn OmMOooN OOF ~o 
- Ww Oornnm MOu Co w 
wv rN MOON ONT WM o 
- own MOON TFT «On- OC 
w we K-NVNOK OFS 3 
wv woo OomMe- MV w (=) 
w Toro AST KF ™N 


vb 


1 
4 


AX/VMS Macro V04 Page ! 


tte 84:35:48 LORIE  SRCSUETLPAKOO MAR; 1 


E 1 
VAX/VMS UETP DEVICE TEST FOR THE Oh 1 


Read-Only Data 


ct 
o- ~ 
-— = 
~@D oe Ww 
e2> | c 
-- " = Ww 
- ao ao] n" " 
os ° ao Cc c c 
cr  ) 9 2 a - w - n" 
-< ~ o a=] o wo 
c-- ~ ~ av c ay cc 
ow w w 4) 2a a 2 ow 
vt = @ a 
- 7 ca we a ra ro 
an ” w nw w" a 
i ¢ ~~ o — e e ay a wD 
aac - ” ay e ~ ee ro ca 
= w" w 
ow oO ‘ 3 Ss 4 p 4 4 4 
at at n” —- = i + ' ‘ 
-“_—- = ~ oe - ~~ - - 
A ° ~ a _ _ _ — 
Se ~ >] S a a = — 
vu = ae Ee € =? 4 a 
— et s " we 
-<-- Ww S > c c Cc c Cc c 
<~ a] @ —- ow ow w a a a 
aes c Vv be = = <™ = =™ = 
ed °o a ea z _ Be zB z 
_ te) 2 c on ono 
ano wo . w w“ “oc am “oc an 
od w 7) ry — — * ~ — « 
> - ae — — ~c ~ oOo —~c —o 
-@ ww = _ ag e ec ec ec ec 
oD < - < —_™ _ —e -—- -—e _— 
ae -- 6 o wo o wo 
ee *. *. Om ry *«@® a. --«@ ec 
a i =4 ~ 2 a 2 a 
o- 2 - 3 
c Cc o ee ee rc eS 
o ~ c c w a) w wo 
ee - uo a= | we we ca coe 
eo z ov c 
. 2 e a a <i <x 
Pe ] a ‘ a t ‘ 
bo) e ~ ~ °o o °o °o 
cee te .) Ww cd et ae ~ 
_ we a ov a 4 a ft 
c ~ aw < cg a f=) 
°o a 
v ae Be — wo ao) wo wo 
a a a a co we vo 
a = wn" 1) ro ae cd co 
i «e J | © a © @ 
- vy —_ — wo Vv Vv Vv 
- ‘= ae se - -— -— -— 
<< ea = — — a=] ao) ao) wo 
a a w =] >] a a a ov 
4 c - =~ = = a ao a o 
a — a a ~ ~ ~ ~ ~ ~ 
a v Vv a oa o [=) Co ao 
-_ — — — — — — — — 
vu ~ Vv vw Vv Y Y =) Y Y 
“Sf -- w Ww A “WN “A “WV “A “A 
od v x <x o« o« od oc oc o<« 
we 4 . - 2 We We ws we w - we 
= =e o = = = = ba z 
t b 4 ” 4 i 4 ‘ t t 
o § teh = o a o a o f=) 
a - oo i w za w =z w z 
“ - ” | @ uw @ ua @ cond 
z a = Y ' a ' ‘ ‘ a 
o a a > | -— a a << < 
ve =” ” = = = xt << a a 
we wT wor ado Oe--w mwrwn orc aor wes wor 
mnw wn WAN Win OOO oon wooo oer Le Le 
nro m mney MPT BEE meen mere mene meee mene 
MTFUUNOOOP- DOO Tf I MVVGAOOOOACABCOwW4UOOCOCO RK HK KIM SITTIN DOO << 
RAR RRR RRR RRR RR RR RRR.R. O00 CD00 CD CD00 000000 00000000 GDGD G0 G0 S000 G0 0000 60000000 


= = 
wow 8 OMG-O-wOowow ON SO OMA om Oovwnn Own Own Own 
Soro SY OMAN SRN So SS SRO SKS SkOS SRO SRWS SRO 


MuOu SOO we RK KNW ~ owmw ownw ownnmuw own owmnw own 
r~owno MS SUUN DOM ~ yee woe yonn oe pete ar 
TORMO H—Mwos Ne TOM | A ~—wWw -—urT. -wy wy -wy ww 
-nrro owuouowvwwrwrOov ~ oro oro oor. oor oor. oor 
= a a - oe = o 

oor-O COucoO-O-—numm Oo mow woo woo NMoOoO 

nnn ROM eMAMOOWN Wo oun yen su run SUN 
ranev Owoe-— ANCO Oww ow o-w Oon-n o vy ww 
rowuoo ora wurcu + at i awe awe ave wo 
nH COwOo-a OmMrm onrn. can Cow can aw 
CrOoo SOONSN SRRR Sos SS ono ono ONO onN;O 
Ovo-e VO—ma own anmw om wn wv vr www 
Dore TONS NOOO SRN OS SRS SRS SRO aii) 
ee al Onrnu ounm» var wn Wuo Nao Vvaleats a ND 
RAR O) RONAN SOOO Cn aed OOO 2oo wooo OOO 
Cooow TMNNO- MOVUu vo vo wow wow Ow Ow 
woworce vewwus WOO om om ONO worn ~o oO 
uAnww —NO-mM vow ww wn Oww wre Onmw orn 
orn Mins WORN no XS ae Se) Ost56 Ovo owo 
~e oe ed AL a own Ow Moo Mow Moo Mow 
Or S MOTAN WOOD weyers) wet) Oo CONN ONO On 
Ono ovo Coun nr w te a) -w —Tw wz 


UETLPAKOO VAX/VMS _UETP DEVICE TEST FOR THE f pat tex 16-SEP=- 1: AX/VMS Mac 0 Page 1 
Mi tb00 Read/Write Dat g- -SEP-1 1382 8} i +? UETP. SRC} SoEF Peed MAR; 1 ° (8) 
79 -SBTTL Read/Write Data 
0000 9 -PSECT RWDATA,WRT,NOEXE,PAGE ; .PSECT name affects ordering! 
¢ TTCHAN: ; Channel associated with ctrl. term. 
0000 ? -WORD 0 
5 FLAG: ; Miscellaneous flag bits 
0000 § «WORD O ; (See Equated Symbols ior definitions) 
4 8 FAO_BUF : ; FAO output string descriptor 
0000 pier 4 » WORD TEXT_BUFFER,O 
00000014' o¢ 39 ADDRESS BUFFER 
C 35 BUFFER_PTR: ; Fake .ASCID buffer for misc. strings 
0000 012C¢ 000C 9 «WORD TEXT_BUFFER,0 : A word for Length, a word for desc. 
00000014' BRig Be - ADDRESS BUFFER 
8014 38 BUFFER: ; FAO output and other misc. buffer 
00000140 Bye 4 -BLKB TEXT_BUFFER 
Ph 99 DEVDSC: : Device name descriptor 
0000 000A gre? 400 -WORD MAX_DEV_DESIG,0 
0000015F* re} $3) - ADDRESS DEV_ NAPE 
b128 108 PROCESS_NAME: 3; Process name 
4B 41 50 4C 00000150'010E0000' 0148 404 -ASCID /LP 
00000008 8132 405 PROCESS NAMES FREE = MAX_PROC_NAME~<.-8-PROCESS_NAME> 
000001 5F 13 n8 -BLKB “PROCESS_NAME_FREE 
pret 408 DEV_NAME: Device name buffer 
0000016E O15F 409 .BLKB MAX_DEV_DESIG+MAX_UNIT _vésié 
0000000F 165 ai9 NAME LEN = 7-DEV_NAME 
16E tig DIB: ; Device Information Block 
0000 0074 195 41 -WORD DIBSK_LENGTH,0 
00000176" 06 ai3 staoul ADDRESS DIBB0F 
000001EA 176 416 " \BLKB DIBSK_LENGTH 
1EA 418 ERROR_COUNT: ; Cumulative error count at runtime 
00000000 Hy $33 -LONG 0 
1EE 421 STATUS: ; Status value on program exit 
0000000C H 5 2 4 -LONG 0 
1F 424 QUAD_STATUS: ; 10 status block for misc sys. svcs. 
00000000 00000000 \f¢ ? 5 eQUAD 0 
1FA 4 5 INADDRESS: ; SCRMPSC address storage 
00000000 00000000 O1FA ? 8 urneeit” 0,0 
00000000 00000000 3 4 0 .LONG 0,0 
A & § DEVNAM_LEN: ; Current device name Length 
0000 "3 ; i -WORD 0 
C 435 RANDOM1: 3; Random word #1 


pa 


G1 
UE yUpARoO VAX/VMS UETP DEVICE TEST FOR THE Seat tek ut dt BS 9 O) gre) AX/VMS Recre Ss Page 3 
v04-000 Read/Write Data “SEP-1984 04:25:46 (CUETP.SRCJUETLPAKOO.MAR; 1 (5) 
AAAAAAAA 9 : «LONG *XAAAAAAAA 
1 4 RANDOM2: ; Random word #2 
A72EA72E 1? {25 -LONG “XA72EA72E 
14 441 ITERATION: i; # of times all tests were executed 
00000000 1 re -LONG 0 
18 444 PASS: ; Pass count 
00000000 H ree «LONG 0 
1C rh, MSG_BLOCK: ; Auxiliary SGETMSG info 
00000220 8 36 rr -BLKB 4 
450 EXIT_DESC: ; Exit handler descriptor 
BO 88080 0 451 . 0 
4464 FF’ 4 12g ADDRESS EXIT_HANDLER 
0000001 8 8 45 ‘ 
QOOOO1EE' 9 C $22 «ADDRESS STATUS 
0 6 456 ARG_COUNT: ; Argument counter used by ERROR_EXIT 
00000000 8 ? tee -LONG 0 
8 $8 ree »ALIGN QUAD :; For self-relative queue of unit blocks 
0 33 461 UNIT_LIST: ; Head of unit block circular queue 
00000000 00000000 0 i rec) -QUA 0 
6 40 464 NEW_NODE: ; Newly acquired node address 
00000000 00000000 8 re ret -QUAD 0 
0 iB 489 PRIB_ITMLST: ; Argument for $GETJPI's base priority 
0309 0004 8 48 468 -WORD 4,JPI$_PRIB 
600008 8° 4c 469 SADDRESS BASE_PRIORITY 
0000 0000 6 2 ayy “GORD 0 
28 $26 BASE_PRIORITY: : ; A place for our process base priority 
00000000 26 at? - LONG 
5C 475 IMAGNAM_ITMLST: ; Argument for $GETJPI's image name 
0207 0040 5¢ $78 * 64, JP1$_ IMAGNAME 
9000026C' 0260 47 -ADDRESS MCODE_IMAGNAM 
0 sige ag rt $28 oMpgness LORS IRASLER 
sinh é¢ 4 6 MCODE_IMAGNAM: pe ; A place for LALOADE?'s process name 
AC 4 § MCODE_IMAGLEN: ; A place to hold the process name's length 
0000 rt ? ? -WORD 0 
AE 485 IMAGNAM_IOSB: ; Final SGETJPI status 
00000000 00000000 s ? § -QUAD 0 
8 4 8 -ALIGN LONG ; Required for data transfer 
8 489 RAMP_DATA: ; Ramp -* . for AAI1-K test 
00001288 B 4 y ,OLKu RAMP_HEIGHT : Forms a (1:N,0:1) word buffer 
B8 491 AMP_DATAI: 
00002288 128 492 -BLKW RAMP_HEIGHT 


0800 


00002310 


UVETLPAKOO VAX/VMS UETP A than TEST FOR THE Hs teK 1 = 
v04-000 Read/Write D 
00 0 
B9 
00000000 0 
BD 
00000000’ Bp ‘ ADDRESS 0 
0 2 7,0 
Bod0gec9" ‘i ‘+4 
0000 ©? 
PB -ALIGN LONG 
D TRANSFER_ ies 
010A 3 *XO10A 
01 D 1 
itd He ba BLAS eg STATUS 
$000 00 D8 ~LON 2eWRITE SIZE*2 
00000000' dC - ADDRESS LAN AK BUF TI 
00000000 EO -LONG 0 
00000000 E4 “ADDRESS 0 
0064 E8 ORD 100 
0 EA TE 8 
0 EB 
000A EC 10 
000A EF 10 
00 F 8 
00 Fi 
FFFF F2 “XFFFF 
FFFF F4 “XFFFF 
000022F 8 : 1 
: WORD 
0000 F 0 
rf 
00000000 B7173A51 fa CLOCK_SPEED 
00000000 00000000 0 
A 
A 
A 
A 
A 
A 
C 
: Be 
h 
1 


WRITE_SIZE 


1+3 


gf 34) AX/VMS Macro V04- 


0 
UETP.SRC GETLPAROO. MAR; 1 


Number of multiuser channels 
»«ewhich successfully started. sweeps 


; Holds mcode type constant 
; Holds address of mcode name 


; For FORSCVT_D_TF arguments 


LPA11-K requirement 

Data Transfer Command Table 
mode (cf. LPA11-K User's Guide) 
highest buffer available (0-7) 
(unused) 
pointer to user status word 
overall data buffer length (bytes) 
overall data buffer address 
random channel List length 
An poy channel List address 


ay 
start channel number 
channel increment 
number of samples in sequence 


dwe 

digital trigger channel 
event mark channe 
digitat trigger mask 
event mark mask 
(unused) 


LPA11-K requirement 
User status word from transfer table 
(cf. LPA1T1“K User's Guide, p.2-19) 


Holds CLOCK As 
*‘D_FLOATING" tor *PoRscvt _D_TF 


Receives computed actual CLOCK A... 
-.-speed for debugging info 


For a note concerning the names cf the following items, see the text where 
: the GEN_ARG_LIST macro is defined. 


; Size in words of data buffers 

; Number of DR11-K's on this LPA11-K 
; (Count + filler to make PUSHL easy) 
3; Number of AD11-K's on this LPA11-K 


UETLPAKOO VAX/VMS UETP DEVICE TEST FOR THE LpAttex 1 y* ae 4 gi: * 2 AX/VMS rs cro V04- on” 
v04-000 Read/Write Data “SEP=1984 04: 6 CUETP.SRC SUE TLPAKO MAR; 1 


00002314 19 -BLKB 143 (Count + filler to make PUSHL easy) 
14 LA_B_DAS: ; Number of AA11-K's on this LPA11-K 
00002318 1 i -BLKB 143 ; (Count + filler to make PUSHL easy) 
18 5 LA_W_NCHN: ; Number of AD11-K samples/sequence 
0000231A 1 28 -BLKW 1 
iA 38 LA_K_LAMSKB: ; LPA11-K select mask 
00002322 1A 23 -BLKW 4 
: 61 LA_W_NUM: 3; LPA11-K number ($ DEFINE/SYS LPA11$'NUM) 
0002324 ¢ ? -BLKW 1 
4 64 LA_L_IND: ; Return status from support routines 
00002328 4 364 -BLKL 1 
8 $9 LA_L_IERROR: ; More LPA11-K status 
0000232C , 363 -BLKL 1 
C 8 LA_W_IPRSET: 3; Hardware clock preset value 
00002330 $65 27) -BLKL 1 
330 358 LA_L_IRATE: ; Clock rate. Cf. 1/0 User's Guide 
00002334 $30 ae -BLKL 1 
334 576 LA_L_NBUF : ; Number of times to fill buffers/request 
00002338 $36 378 -BLKL 1 
338 79 LA_W_MODE : ; Sampling options. Cf. 1/0 User's Guide 
0000233A : 50 -BLKW 1 
A 383 LA_W_DWELL: § wane of hardware clock overflows between 
0000233C¢ $30 237 -BLKW 1 3 «sample sequences in multirequest mode 
33C 38s LA_W_LDELAY: : belay from sweep 8 start until first... 
0000233E 23 : 2 $ -BLKW 1 3 «.-Sample is taken 
; E 383 LA_B_ICHN: ; First LPA11-K channel to be sampled 
0000233F : 8 -BLKB 1 
33 91 LA_L_DEVDEPEND: 3 Beviee dependent longword from... 
00002343 233F 92 -BLKL 1 --original S$GETDEV 


J1 
JETLPAKOO VAX/VMS UETP DEVICE TEST FOR THE d oag tk 16-SEP-1984 91:27:21 VAX/VMS Macro v04-00 P 16 UE} 
v04-000 General Data Buffers Sets 7 84:35:26 HUET ERC SES PAROS MAR: 1 — (6) vou 
94 -SBTTL General Data Buffers 
0000 ~-PSECT BUFFERS,WRT,NOEXE,PAGE ; .PSECT name affects ordering! 


; GEN BUFFERS generates parallel sets of buffers of a given size and data type. 
: Each call to GEN_BUFFERS defines an inner macro, GENERATOR, with the 

3 ecqunents specific to each kind of buffer, and then repeatedly calls the 

; GENERATOR macro to set up each buffer. The GENERATOR macro is needed in 

:; order to define Labels for individual buffers. The Labels differ from one 

; another by the last character of their name, a digit. For a note concerning 
H poe neues Mt the following items, see the text where the GEN_ARG_LIST macro 
3; is defined. 


MACRO GEN_BUFFERS BUF _TYPE,SIZE,DATA_TYPE ,NUMBER 


«MACRO GENERATOR COUNT ; Defined specific to each buffer type 
«AL 3; Required by LPA11-K support routines 
LA_AK_"BUF_TYPE** COUNT: 


-BCK'DATA TYPE SIZE 
. Ow MEB ; Keep Listings neat 
-ENDM GENERATOR 


N= 1 

-REPEAT NUMBER 
eet ha \N : Generate buffers 
-ENDR ; NUMBER 

.ENDM  GEN_BUFFERS 
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1 
1 
1 
1 
1 
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~SHOW MEB ; Show first expansion of the first macro call as an example 
0 GEN_BUFFERS BUF1,WRITE_SIJZE,W,2 ; Data buffers on LPA11-K channel 1 
0 LA_AK_BUF1T: 

00001000 ; 626 -BLKW WRITE_SIZE 

0 627 GEN_BUFFERS BUF2,WRITE_SIZE.W, ; Data buffers on LPA11-K channel ¢ 
0 6 8 GEN_BUFFERS BUFS,WRITE_SIZE,W, ; Data buffers on LPA11-K channel 
0 629 GEN_BUFFERS BUF4, ,WRITE_SIZE,W, ; Data buffers on LPA11-K channel 4 
0 6 9 GEN_BUFFERS BUFS WRITE _SIZE,W, ; Data buffers on LPA11-K channel 5 
0 631 GEN_BUFFERS BUF6,WRITE_SIZE,W, ; Data buffers on LPA11-K channel 6 
0 6 ¢ GEN_BUFFERS BUF7, WRITE SIZE,W, ; Data buffers on LPA11-K channel 7 
0 635 GEN_BUFFERS IBUF ,MGT_BOF SIZE.L NUM_ CHANNELS ; Buffer management buffers 
78 634 GEN_BUFFERS FNUM,1,C,NUM_CHANNELS ~; Points to next buffer to fill 
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v04-000 LPAI ok Subroutine Library Argument List eater 4:55:25 DETR. SRC SUE TLE ROD MAR: 1 " (7) 
-SBTTL LPA11“K Subroutine Library ereumens Lists 
0000 «PSECT RODATA,EXE,NOWRT,PAGE ; EXE attribute changes .PSECT ordering! 


GEN_ARG_LIST generates sets of argument Lists for a given subroutine call. 
Generally the names of these argument lists correspond to the uniqu part 
of the name of the gubrout ine call which uses them. Only those LPA11-K 
support routines which must be called once per LPA11-K I/0 bus channel 
have their arpeen lists defined here. Tney will be called by CALLG 

; instructions because the Lists are static, one need not take the 

; set up fhe List each time the routine is called, and the code to do the 
calls will be simpler. Other LPA11-K routines will use CALLS instructions. 


; Each call to GEN_ARG_LIST defines an inner macro, GENERATOR, with the 

3 arguments specific td each kind of arg list, and then repeatedly calls the 

3; GENERATOR macro to set up each arg List. The GENERATOR macro is needed in 

; order to define labels for individual arg Lists. The labels differ from one 
3 another by the Last character of their name, a MSF Where an individual 

3; argument references storage defined by the GEN_BUF FERS macro, one must 


DODD DDD DD DDO DDOOG 


‘0 Cd Cd Co Od Cd Cd Cd Cd CD C9 C0 09.00 G0 CD CD CD0D 


specify the argument name less the last character. Instead of that last 
character, one gives the string, ‘L’', which will cause the last character 
of the argument List to be appended. The listing file produced by assembling 
this file shows the gupene ies of the first argument of the first call of 

; GEN_ARG_LIST (viz., SWEEP_ARGL_1). One can see the symbol defined for the 
beginning of the arg List; the count of the arguments to follow, and the 
arguments themselves. 


DDRDEEDPRLPAA AAA AA AAA AAA AAA AAA AO 
DDD DP & BS EE Et 


WN | OS OONAUE WN O OONOUE WW OOONO 


The GENERATOR macro creates two kinds of items on an argument List: 
addresses and longwords. It decides which to create based on the first three 


pbppatpapappapappatd 


664 

665 ; characters of the item to place on the arglist. If the first three 

4 characters are ‘‘LA_"’, the decision is made that the item is an address of 

6 some named location in the code. Otherwise, it is assumed that the item for 


the arglist is just a Literal value to be placed in a Longword. 
MACRO GEN_ARG_LIST ARGL_TYPE ,NUMBER , ARGS 


-MACRO GENERATOR LM ; Defined specific to each arg List 
ARGL_TYPE' ARGL_'‘L: 
-BYTE ,0,0,0 
-IRP  —_ EACH_ARG, <ARGS> 
-1F EQ ZLOCATE(<LA_>, EACH_ARG) 
-ADDRESS EACH_ARG 


~-LONG EACH _ARG 
; IF EQ LOCATE 


‘NOSHOW MEB  ~ ; Keep Listings neat 
-ENDM GENERATOR 


671 


m= 0 

- IRP EACH _ARG,<ARGS> 
M= A+ 

-ENDR ; EACH_ARG 


N= 
-REPEAT NUMBER 
ee ee \N,\M ss ;_: Generate each argument List 
= 
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93 -ENDR  ; NUMBER 
8¢ -ENDM GEN _ARG_LIST 
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GEN_ARG_LIST | SYSWP 
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16-SEP=1 
8 “SEP=1 


RG ere 1 


; Start an asynchronous sweep 


LA_W_LBUF 


386 1:27:21 VAX/VMS Ys cro V04 on? Page 
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-SHOW MEB ; Show first expansion of the first macro call as an example 
GEN_ARG_LIST att ,NUM CHANNELS, - 


AK_IBOF'L,LA_W LBUF LA. LNBUF ,LA_W_MODE ,LA_W_DWELL,- 
AK 1G1BU UF _i¢ é 


»LA_O_LDELAY; “tne 


HN7LA_W_NCHN-LA_L_IND> 


0,0,0,0 
LA_AK ea 


. 
> 
—J 
L~J 
z» 
MmMmMmmMmmmMmmmneceny 
AOnMNNnnnononwo 
AONNnnnonnuoo 
- 
> 
‘ 
> 
$ 
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a 
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Cc 
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— 


LA_L_IND 


LA_L_NBUF ,LA_W MLE ENDS W_DWELL,- 


LDELAY,CA_8_ICHN,CA_W_NCHN,CA 


BUF'L,LA_ 


3 Start 2 Panehraiet Sweep 
GEN_ARG_LIST SEAL AK NUM CHANNEL 


- si. LA_K_LAMSKB,LA_AK_BUF 'L'1,LA_AK_BUF 'L'2> 


: Set Sp buffer array for™ sweeps 


GEN_ARG_LIST IWTBUF ,2,<LA_AK_IBUF 'L,0,LA_AK_BFNUM'L> 
; Wait for the next free buffer 


GEN_ARG_LIST | I1GTBUF,NUM_CHANNELS,<LA_AK_IBUF 'L,LA_AK_BFNUM'L> 
; Tell me which buffer fo process 


GEN_ARG_LIST RLSBUF ,NUM_CHANNELS,<LA_AK_IBUF'L,LA_L_IND,LITERAL_O,LITERAL_1> 
; Put a buffer into the ready queue 


1 
( 


*) 
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viet RMS 40 Data Structures ety 7 84:35:26 UETP.SRC SESLPAKOD MAR: 1 . (8) 
F 1 -SBTTL RMS-32 Data Structures 
0000 § ~PSECT RWDATA,WRT,NOEXE,PAGE ; .PSECT name affects ordering! 
rf i »ALIGN LONG 
44 725 SYSIN_FAB: ; Allocate FAB for SYSS$INPUT 
44 7 $ $F AB- 
oe f FNM = <SYSSINPUT> 
94 7 ; SYSIN_RAB: ; Allocate RAB for SYSSINPUT 
94 750 SRAB- 
94 731 FAB = SYSIN_FAB,- 
8 7 § ROP = PMT,- 
4 7 PBF = PROMPT,- 
94 734 PSZ = PMTSIZ,- 
94 735 UBF = DEV_NAME, 
i 4 § USZ = NAME_L 
4 ie stash ; Allocate FAB for UETINIDEV 
308 740 FAC = <GET,PUT,UPD>,=- 
D 741 RAT = CR,- 
3p 14g SHR = <GET,PUT,UPI>,- 
30 243 FNM = <UETINIDEV.DAT> 
4 745 INI_RAB: ; Allocate RAB for UETINIDEV 
428 oe SRAB- 
4 74 FAB = INI _FAB,=- 
4 748 RBF = BUFFER,- 
4 749 UBF = BUFFER,- 
428 130 USZ = REC_SIZE 
46C P36 DDB_RFA: ; RFA storage for INI_RAB 
00002472 195 P37 -BLKB 6 
472 755 -ALIGN LONG 
474 756 SUP_FAB: ; Allocate FAB for UETSUPDEY 
te 988 PACes GET 
Ss i 
474 761 FOP = UFO,- 
474 762 FNM = <UETSUPDEV.DAT> 
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4 -SBTTL Test and Device Initi 
«PSECT LPAI1K,EXE,NOWRT ,PAGE 


0000 


0000 
6D OEF6'CF ODE 


02. «€1 
1E 2384'CF 
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01 50 O01 
ao 
2386'C B0 6 
Ge0A"s 
OIlEE'CF 1 dO 7? 
OOC4*CF ODF 7? 
01 oD 7? 
00741132 8F 4 : 
OFF4 1 
O140°CF O20A'CF 3C 
Sehoce OF 
140'°CF ODF 9 
000000 * GF 2 FB 9A 
5 0140'°CF 7: Ry Al 
0148'CF 2 Ad A? 
DE AC 
AD 
50 = 0154°CF OA 
51 “ 


Sonn 
_ 
m 
COOOOCOCOOSOOOCSOOSOSSOOOSOSOOOO OOOO OOOOOOO OOOO OOOOOOOSoOoOoOO 


50 1 3 
0148°CF at 


a_i 


OOOO COOH 0909090090908 SIN NINN NIN NSIOOOAOAOAO 
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OA tt tt 1 QOOOOOO 
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-DEFAULT DISPLACEMENT ,WORD 
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me %, 


alization 


Start up the LPA11-K test. This entails some overhead necessary to cope 
with both expected and unforseen conditions, figuring out just 


devices are to be tested, makin 
and setting up writeable space 


~-ENTRY UETLPAKOO, “M<> 


MOVAL  SSERROR, (FP) 
SSETSFM_S ENBFLG = #1 


SDCLEXH_S DESBLK = EXIT_DESC 


SOPEN FAB = SYSIN FAB,- 
ERR = RMS_ERROR 

SCONNECT RAB = SYSIN_RAB,=- 

ERR = RMS_ERROR 


BBC S*#DEVSV_TRM 
SYSIN FAB+FABSL_DEV, 10$ 
STRNLOG_S LOGNAM = CONTROLLER, - 
RSLLEN = DEVNAM_LEN,- 
RSLBUF = DEV 


CMPL RO, #SS$_NORMAL 
BEQL § PROC_CONT_NAME 


$GET RAB = SYSIN_RAB,=- 
RROR 


ERR = RMS_ERRO 

MOVW SYSIN_RABFRABSW_RSZ,- 
DEVNAR_LEN 

BNEQ PROC_CONT_NAME 

OVL #SS$"BADPARAM, STATUS 

PUSHAL NO_CTRLNAME 

PUSHL 

PUSHL M#UETPS$_TEXT!STSSK_ERROR 

PUSHL 


BRW ERROR_EXIT 
" DEVNAM_LEN, DEVDSC 
DEV 


DEV 

C #9..G*STRSUPCASE 

ADDL3 #1, DEVDSC,R 

ADDW Re PROCESS NAME 
+MAX_PROC_NAME- 
-PROCESS_RNAME_FRE 

SUBL3 #PROCESS~NAME~FRE 
foe" 


R1,RO 
#MAX_PROC_NAME ,PROCESS_ 


E.RO 
E.- 


what 
sure we can test the indicated devices 
r each device to be tested. 
; Entry mask 
; Declare exception handler 
; Enable system service failure mode 
; Declare an exit handler 
; Open SYSSINPUT 
; Connect RAB to SYSSINPUT 
; BR if SYSSINPUT is NOT a terminal 


; Allow terminal user to specify... 
Sweet Logica: name... 


-+-for the controller to test 


; Was a controller specified? 


BR if it was - go process it 


; Read SYSSINPUT... 
3 .--for the controller name 
; Save the name Length 


BR if we got something 
Save the exit status 
Prepare for message... 


2. to tell of bad setup 


Set the device name Length 

Make sure... 

ese that the specified controller... 

---1S all uppercase for later comaparison 
Estimate the eventual... a 
«+-process name length (incl. *'_"') 

Locate first available byte... 

eee1N process name handle... 

eee for device name 

Will the device name fit... 

rr she remaining space? 

BR if it wil 

3; Overwrite handle otherwise... 


NAME ; ...and define the maximum Length 


en - 
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BF 10$: 
80 SF 8F 4 ef MOVB #*A/_/,(RO)+ ; Separate handle from device name 
60 O1SF'CF del C MOVC3 DEVDSC,DEV_NAME, (RO) ; zencerenete handle with device name 
E 04 CB 4 CLRL -(SP) ; Set the time stamp flag 
OOOF'CF ODF CD 5 PUSHAL 155! HARE ; pet the test name 
2 oD D § PUSHL # ush the argument count 
00741039 8F DD 00D PUSHL  #UETPS Bisithag S * succéss.s Set the message code 
00000009 GF 4 FB OOD 8 CALLS #4,G*LTB Print. the startup message 
0002'CF 08 AB oe BISW2  #BEGIN_MSGM, FLAG : Set flag so we don't print it again 
BE ? SSETPRN_S PRCNAM = bROCESS NAME ; Set the process name to UETLPAKOO_x 
02 E1 oF9 § BBC S*#DEVSV_TRM ; BR if SYSSINPUT is NOT a terminal 
66 2384'CF OF SYSIN FABSF AGEL DEV, 20$ 
OOF 4 SGETOVI_S DEVNAM = VSSTNPUT SS Get the name of.. 
OF6 5 EFN = He SYNCH EFN,= ; ...device which. may abort test 
OOF6 § ITMLST = INPOT_ITMCST,-= 
OOF IOSB_ _= QUAD. STAT 
45 O'F2°CF €E9 O11 38 BLBC QUAD_STATUS,20$ ; Avoid CTRL/C handler if any error 
O17 839 SASSIGN_S DEONAM = diets PTR,- ; Set up for CTRL/C AST handler 
tj 
0128 41 $Q10W_S She = TTCH Enable CTRL/C AST's... 
4 a 4g NC = ros A ETMODE! fosMe CTRLCAST,= 
128 4 fp CASTHAND 
0148'CF DF 0149 44 PUSHAL oo _NAME : »-.and tell the user... 
01 DD 014D 845 PUSHL 
00748328 8F DD O14F ee8 PUSHL fyeres ioe success"; 3 «+-how to abort gracefully... 
00000000 ' GF 03 FB bree 744 20S CALLS G*LIBSSIGNA wee 
015C¢ eh STRNLOG_S LOGNAM = MODE 3; Get the run mode 
015¢ 850 RS LEN = BUFFER_PTR,- 
Bi9g 51 RSL BY F = FAO BUF 
0014"CF 20 8A 017 2§ BICB2 auc BITM, BUFFER ; Convert to upper case 
0014'CF 4F BF 91 OI7A 5 CMPB *A70/, BUFFER : Is this a one shot? 
05 \ 18 54 BNEQ ; BR if not 
0002'CF 10 A \3 2? 25$ BISW2 #ONE_SHOTM,FLAG ; Set flag for one-shot mode 
0014'CF 50405544 BF D1 187 3$ CMPL #*A/DUMP/ ,BUFFER 3 Epeg jet dump mode info wanted? 
05 ig 190 58 BNEQ 27$ ; B t 
O002'CF 20 A b135 23 BISW2 #DUMP_MODEM,FLAG ; Set flag for dump mode messages 
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est and Device Initialization - 
T d Devi I iali j -SEP-1984 
197 : 
13¢ 88 ; From UETINIDEV.DAT qnd UETSUPDEV.DAT, get information which gives controller 
1 4 64 : and unit configurat on and lets us know if the setup to run this test was 
130 0? 3 done correctly. 
197 88 SOPEN FAB = INI_FAB,- 3; Open file ‘UETINIDEV.DAT" 
197 68 ERR = RMS-ERROR 
1A6 § SCONNECT RAB = INT_RAB,- ; Connect the RAB and FAB 
1A6 p ERR = RMS-ERROR 
18 7 SMGBLSC_S _INADR = INADDRESS,=- ; Connect to UETSUPDEV global section 
1B 0 RETADR = OUTADDRESS,- 
1B 7 GSDNAM = SUPDEV_GBLSEC,~ 
1B 74 eLags = #SECSM_EXPREG 
00000978 8F 29 B} 4 2 cme BR ,WSS -NOSUCHSEC ; Was png Sort ren already there? 
01DD 877 SOPEN FAB = SUP_FAB,- 3 «else open ‘UETSUPDEV.DAT" 
O1DD 878 ERR = RMS-ERROR 
1EC 7 SCRMPSC_S CHAN = SUP_FAB+FABSL_STV,- ; Create the global section 
Q1EC 880 INADR = INADDRESS,- 
O1EC 881 RETADR = QUTADDRESS, - 
O1EC 886 GSDNAM = SUPDEV_GBL LSEC.= 
BiEt B84 30$ FLAGS = #SECSM_EXPREG! SECSM_GBL 
56 O206'CF O202'CF (C3 0 1 ess SUBL3 OUTADDRESS,OUTADDRESS+4,R6 ; Compute global section length 
021C 887 FIND_IT: 
021C 888 $GET RAB = INI_RAB ; Get the first record 
021C 889 ERR = RMS ~ERROR 
OIES'CF DF 0228 90 PUSHAL CONT_DESC™ ; Make sure... 
OIES'CF ODF O22F 91 PUSHAL CONT_DESC 3 eeethat the controller name... 
00000000 ' GF ge FB 8 3 He CALLS #2,G*STRSUPCASE § ecet8 atl bbBs“** letters 
0014'CF 44 BF 91 A 9 CMPB #*A/D/ BUFFER ; Is this a 
gf 13° 0240 ge BEQL 10$ : Go on if n 
0014'CF 45 BF 91 O t§ 95 CMPB #*A/E/ BUFFER 3; Is this R end of the file? 
D2 12 024 528 BNEQ FIND If 3; Continue on if not 
dre hi DF O24A 89 PUSHAL DEVDSC ; Push device not supported message 
#4 44 0 5 43 Sr eet ata ; Parameters on the stack 
00748333 ge OD 54 $30 PUSHL #UETPS_DENOSU 
02 FO 5A = 901 INSV #STSSK_ERROR,- ; Set the severity code... 
8 5C O08 #STS$V_SEVE - 
6E 20 90 #STS$S_SEVERITY, (SP) 
O1EE'CF oF + : $08 sot {pP).8 ATUS 3 ...and save it as the exit status 
0E16 Rf és $96 108 BRW ERROR_EXIT ; Exit in error 
O1SF CF OO1A'CF O20A'CF 3 if 443 ores DEVNAR LEN, ,BUFFER+6,DEV “NAR i he tats the right controller? 
246C'CF 2438'CF 06 § 7 910 MOVC3 #6,IRI Si Mere ta RFA,DDB_RFA ; Save the Record File Address 
0018'°cF 54 8F 1 7 911 CMPB #*A/T/ BUFFER+4 ~ : Can we test this controller? 
> 3 912 BEQL ND IT ; BR if we can... 
913 $FAO_S cCTRSTE = DEAD_CTRLNAME,-'; ...and yell at user if we can't 
914 OUTLEN = BUFFER_PTR,- 
312 i r = FAO BUF,- 
18 = #DEVDSC 
OIEE'CF 14 00 3 4 MOVL $_BADPARAM, STATUS ; Set return status 
000C *CF DF A 18 PUSHAL BUFFER _PTR S eee 
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ono SMAAOAOUE SES PWR | “QOCCO TNH HNN HMMM MMMNMoOVIOCOWWWIOr> 
22lSSse kt rrren 


CSOOSOOOCOCOOOSOOSOSOOCOCOCOOOOOOCOOOOOOOOOOOoOoOoOO 
AAA 


PUSHL #1 
8 Hey #UETPS_TEXT!STSSK_ERROR 
BRW ERROR_EXIT 


$GET RAB = INI_RAB,- : 
RR_= RMS-ERROR 
PUSHAL CONT_DESC : 
PUSHAL CONT SDES¢ ; 
CALLS #2,G"STRSUPCASE ; 
CMPB ss #*A/U/,, BUFFER : 
BEQL $ : 
CMPB =s-s #*A/D/,, BUFFER : 
BEQL : 
CMPB 3s #“A/E/, BUFFER ; 
BEQL 208 : 


PUSHAL ILLEGAL_REC 

PUSHL —#UETPS_ TEXT! STSSK_ERROR 
BRW ERROR_EXIT 

BRW ALL_SET 

CHEB #*.A/T/ BUFFER+4 


UN ; 
SKPC #*A/ 7,#MAX_UNIT_DESIG,- 
BUFFER+6 


cL sR : 
SKPC #°A/0/ ,RO,(R1) : 
RO,DEVNAM_LEN,DEVDSC—_: 


DDW3 
MOVZWL DEVNAM_LER,R 
MOVC3 RO, (R1J,L°DEV_NAME (R2) 
SGETDEV_S DEVNAM = DEVDSC,- 
PRIBUF = DIB 
_DEVCLASS,R7 
EVTYPE,R8 ; 
F 


MATCHC #6,BUFFER,R6,@OUTADDRESS. 


BEQL 
$FAO_S CTRSTR = CS3.- ; 
OUTBUF = FAO. BUF ,- 


Pi = 
MATCHC a BUFFER,R6,@OUTADDRESS 
BNEQ 50$ : 


MOVZBL TEST NAME, RS : 
capes RS (RS) TEST NAMES 


PUSHAL DEVDSC : 
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We can't test what we can't test 


; Get a record 


Make sure... 

«that this line... 

eee1S all uppercase letters 
his a UCB? 


BR if it is 

Is this a DDB? 

B yes 

Is this the end? 
BR if yes 


-_— 
mw 
ee 


Then this is an error in the record 
Push the error message 

Push the signal name 

Push the temp arg count 

Finish for good 


Found DDB or END 
Is the —_ testable? 
no 
3; Find out where unit number really is 


; Units must all be at least one digit 
; Skip leading zeroes on the unit 
; Compensate for DECL above 


Calculate device'unit gtr ing Length 
Offset to unit number in DEVDSC 


; Append unit number to device 
; Get the device characteristics 


; Save the device class 
Save the device type 


Make it into a string 

; Find the device class and type 
BR if it was found 

Try for full class support 


3; Find the device class only 
BR if not found 


Get the test name Length 

Are we the right test? 

BR if yes 

Push device not supported message 


R= 


<a  L 


— 
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O148'CF OF 7 6 PUSHAL PROCESS WARE ; Parameters on the stack 
2 oO B 4 PUSH #2 + Push the argument count 
00748333 8F D 8 PUSHL #UETPS_DENOSU 
F A 97 INSV #STS$K- ERROR ,= 
as 9 p #STS$V~SEVERITY,- 
6E A 3 #STS$S" SEVERITY, (SP) ; Set the severity code. 
OIEE'CF 6E€ 00 A 3 (SP), STATUS + v..and save it as the exit status 
04 bo AD 9 PUSHL #4 ; Push the partial arg count... 
occD 1 * 3 : 60s BRWwW ERROR_EXIT 3 «and split this scene 
: 9 § i SEXPREG_S as = ee 3 Ts 3; Get a new node of demand zero memory 
= 
0238'CF 0308 OE 5D C 3 8 INSQTI @NEW NOBE WNIT LLIST 3; Put the new node in the unit List 
56 0260'CF 00 O3CA 989 MOVL NEW w_NODE,R ; Save a copy of its address 
08 A6 1 30 CF 990 MOVB OETUNTSB_TYPE(R6) Set the structure type 
O1AG BF OB D3 991 MOVW #UETUNTSC INDS12+DEVDEP_ S126, 
09 ag D 4% UETUNT$W_SIZE(R6) : Set the structure size 
9 88 dD9 «99 BISB2 AUETUNTSR TESTABLE,=- ; By default, the ae ‘s testable 
08 A6 8 DB («994 UETUNTSB_FLAGS(R6) 
oraeee Spe tH +4 308 54 a DEVDSE, UETUNTS! FILSPC(R6) ; Set the device name size 
15 A6 O3EA 99 nist ariegrest (Ro) ; Save the device name 
57 O20A'CF O01 A EC 998 SUBW THEVA AR_L : k off Lester giving controller... 
2322'CF 0144'DF47 41 BF 83 O3F2 999 SUBB Hi,0 /A/, ADEVDRCRGCR7), LAW i) nus ...and convert to a number 
3322, CF OF O5F¢ 1000 PUSHAL LA_W_ ; Specify which LPATI“K we will use... 
00000000°6F 6 PB 206 1903 CALLS" rte =G™LPASLAMSKS pee 
O17E'CF D0 rar 1008 OVL O1BBUF O18, DEVDEPEND,- : “Save the state... 
233F "CF Re IOs L_DEVDEPEND 3 ...0f the original microcode 
041 1006 : Fill the sets of butters for the LPA11-K with random data. There are seven 
Be tA ; contiguous sets of two contiguous buffers each. 
57 00003800 8F DO 041 1909 / MOVL #WRITE sires CHANNELS,R7 ; Total buffer size in longwords 
58 O0000000'EF DE 419 1910 ae MOVAL L*LA_AR_BUF11,R8 :"point to first buffer 
O20C°CF OQO210°CF CO 04 ° 1316 3 ADDL2 RANDORT » RANDOM1 : Create a ‘'random'’ longword 
88 O20C'CF DO 04 101 MOVL RAN npoeT » (RB) + : Stuff it into our buffer... 
F157 =F5 Be : Iie SOBGTR R7,70$ : .eeuntil the buffer is full 
FE82 31 O42F 1016 BRW FOUND_IT ; Do the next UCB 
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4 1018 ; 
4 1 18 ; Arrive here when we have the gevice configuration. In normal or loop forever 
4 1 ; mode, set a timer far enough in the future such that we can do a reasonable 
4 1021 ; set of tests before the timer expires, but if our device gets hung, the 
4 1 § ; program won't waste too much time before noticing. Let one-shot mode be a 
4 1 3; Special case. 
4 1024 ; 
430 1025 ALL_SET: 
O238'CF D5 04 1 § TSTL NIT_LIST 3; Anything to test? 
1 12 04 8 1 BNEQ 0$ ; BR if yes 
O12B'CF DF 04 1028 PUSHAL NOUNIT_SELECTED ; Else set up the error message... 
DD QO45C 1029 PUSHL 3 «+-argument count... 
00741132 8F DD O043E 1030 PUSHL M#UETPS_TEXT!STSSK_ERROR ; ...signal name... 
0 DD 0444 1031 PUSHL 3 «+-8Nd parameter count 
OIEE‘CF 14 9 446 + § MOVL #SS$_BADPARAM, STATUS ; Set return status 
0c31 1 re 18 Z 108 BRW ERROR_EXIT ¢ «..and give up, complaining 
QO002'CF 04 A8 ace 1035 BISW2  #SAFE_TO_UPDM,FLAG ; OK safe to update UVETINIDEV.DAT now 
045 10 : $GETJPI_S ITMCST "= PRIB_ITMLST ; Get & save our process’ base priority 
56 D4 0468 10 R & ; Clear collector for changed priority 
046A 1038 STRNLOG_S LOGNAM = LPA11K_PRIORITY,- ; See if the user... 
046A 1039 RSLLEN = BUFFER_PTR,=- 3 «+.ewants to boost... 
begs 1040 RSLBUF = FAO_BU ; «our base priority easily 
50 0629 8F 81 0483 1041 CMPW = #SS$_NOTRAN,RO ; We'll try if user asked 
17 13 0488 od BEQL 208 ; BR if not requested this way 
0 OD Q48A 104 PUSHL #0 ; We have string, value goes to stack 
E DD O48¢ 1044 PUSHL SP ; Value address for OTSSCVT below 
000C'CF DF 48 1045 PUSHAL Be cte PTR :; String for OTS$CVT 
00000000'GF 02 FB 049 eg CALLS #2,G*OTSSCVT_TI_L ; Convert translated string to number 
56 8EDO 0499 104 POPL R ; Collect whatever value we got... 
02 30 E9 049C 1048 BLBC RO,20$ 3; .--but ignore it if we got an error 
0 12 Hy 1383 208 BNEQ 30$ ; Runtime value has precedence, if we got it 
56 00 00 peal 92) 30s MOVL #JOB_PRIORITY,R6 ; Zero or no translation, try built in 
O258'CF 56 D1 Q4A4 1088 CMPL R6,BASE_PRIORITY ; Do we want to boost our priority? 
25 15 O4A9 1054 BLEQ 40$ ; BR if we're as good as we can get 
56 10 01 Q4AB 1923 CMPL #16,R6 ; Does user want a timesharing priority? 
20 «18 re 1 2$ BGEQ ; BR if not - we can't handle real time 
48 32 SSETPRV_S ENBFLG = #1,- ; Give us SETPRI privilege 
480 1 38 PRVADR = NEEDED_PRIVS 
rt? 1923 408 SSETPRI_S PRI = R6 ; Boost our base priority 
400 1061 SGETJPIW_S ITMLST = IMAGNAM_ITMLST,- ; We depend on system LPA11-K... 
400 1 °¢ EFN = #JP * 3 «.-microcode loader process... 
400 106 PRCNAM = LALOADER_PROC,- ; ...in order to load microcode 
400 1064 10SB = JMAGNAM 
O2AE'CF  O8E8 or a rt ' 22 yey #SS$_NONEXPR, IMAGNAM_IOSB ; Is the seede loader proc running? 
: no 
063E ‘CF sate $3 arg 1 89 MATCHC LALOADER_IMAGE,LALOADER_IMAGE+8,- ; Proc name OK, check image name 
026C'CF AC'CF 479 1 re RIC ODE _IAAGLEN CODE IRAGNAR 
1A 13 off ! 4 50s BEQL 60$ ; BR if correct image, tov 
0651°CF DF Q501 1071 PUSHAL NO_LALOADER ; Someone forgot to do correct setup 
1 OD : ; 1 ts PUSHL 3; We're unhappy about phat 
00741132 8F OD 107 PUSHL SVE tPS_TERTISTSOR ERROR ; And we've got something to say! 
3 DD O50D 1074 PUSHL @# 
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O1EE'CF  OQQ008EA BF po 50 1075 MOVL #SS$_NONEXPR=STS$K_WARNING+STS$K_ERROR, STATUS 
0864 31 18 i: a W ERROR_EXIT 
08 0003°CF 4 €1 218 1 £8 : C ONE_SHOTV,FLAG,TIME_IT ; BR if not one-shot... 
0002'CF § ag 1 107 BISW2 #TEST_OVERM FLAG 3 «else end after one iteration... 
04 3 $ ; _ W ONE_SAOT_TEST t ...and do a special test 
9 1 ; ~"""SSETIMR_S VAYTIM = THREEMIN,- ; Set timer AST to 3 minutes 

5209 1 ASTADR = TIME OUT,- 
529 1084 EFN = #EFNG 
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v04=000 Vest the tPAII cn ~3EE= 188s Ba iSSiz5 HAXCUMS Macro Yor Oks. Page (2, 
1 .SBTTL Test the LPAI1-k 


$ RESTART: 
+ 


At this point the device designation is in location DEV_NAME pointed to by 
descriptor DEVDSC. The device is known to be supported By this test. 


2 C 
2 
Bat 1089 
& 1099 
£3 38 : The LPAI1-K is capable of supporting up fo eight different users at once 
53C 1095 ; with the multiuser microcode loaded. This test uses that microcode to test 
53C 1094 ; as many devices as are present on the LPA bus. There will be a request for 
53C 1095 ; each device and each request will be double buffered. Each individual 
53¢ 1 38 ; buffer will be WRITE_SIZE words peng. The requests will be started one 
: € 1097 ; immediately after the other, with the result that there should be several 
C 1098 ; active requests at the same time. Once the sweeps are all started, the 
53C 1099 ; program will wait for all the requests to complete and test that they all 
be : 1191 3; completed without an error. No comparisons of data will be made, however. 
053c 1102 ° 
b C 1108 MU_TEST: 
13 0002'CF 05 €1 O53C 1104 BBC #DUMP_MODEV,FLAG,10$ ; BR if not typing debug info 
Orr's Bb Bate 118, URAL REE 
00741133 8F DD Bee 1109 PUSHL M#UETPS_TEXT!STSS$K_INFO 
00000000'GF 03 FB ef 1108 CALLS #3,G*LIBSSIGNAL 3; Give some reassurance 
gad 1103 18 
22BD "CF O26F ‘CF DE 555 1111 MOVAL MU_MCODE ,MCODE_ADDR ; We'll be dealing with... 
22B9' CF 01 dO bezs 1116 MOVL #LASK_MRMCODE ,ACODE_TYPE 3 «multiuser mcode 
338,08 OF p20! 1114 PUSHAL LA_L_IERROR 
gsicee Be See Ie RURAL AL 
2B9'CF DF 056d 1117 PUSHAL MCODE_TYPE 
00000000'GF 04 FB 0571 1118 CALLS #4,G*CPASLOADMC 3; Load multiuser microcode 
074C 30 b256 113) BSBW LOADMC_CHECK ; Check for errors 
0578 115) > Determine the cont \quretion of the LPA11-K 1/0 bus before entering test mode. 
057B 11 § 3; We must redo the original SGETDEV for this LPA11-K now that we know for sure 
57B 1125 ; that there is microcode loaded into it. Devices present on the bus are made 
378 1} : ; known by a bit mask in the device dependent characteristics longword. 
278 i § ; $GETDEV_S pevenn = DEVDSC,- ; Get the LPA11-K configuration 
= 
57 O17E'CF 00 390 11 8 MOVL ca tbe: =BGVDEPEND A? ; Save in register for easy access 
38 57 9 5 A 95 11 FFC #LASV_AD AeR R : Count 2ach type... 
2310'CF 5 9A 1130 SUSB3  #LASV~AD1,R LA_B_ADS > (AD11-K) 
05 5 7 €1 O5A0 1131 BBC aL ASVD R7,208 ; aaa device which can... 
2314'CF 01 DO 3A 1 : a MOVL #1,LA“B_OAS : (AAN1-K) 
58 (57 95 08 Ao 1134—~—~—~<“‘i~;:;é«‘iC #LASV_D101,#5,R7,R8 : ...be on the LPA11-K 1/0 bus 
250C'CF 8 8 3 ar 1135 SUBB3 #LA$V"DIO1,R8,LA_B_DRS ; (DR11-K) 
06BC Bs 1 6 BSBW CONFIG_CHECK 
57°CF F 2B) 11 PUSHAB LITERAL_O 
Gh oce F BB iil PUSHAW LA_W_IPRSET 
"CF F BF 1379 PUSHAL LA IRATE 
ball F C3 114 PUSHAQ aye RVL 
00000000 ' GF 4 FB O5C? 1142 ALLS #4,G*LPASXRATE ; Calculate the clock A rate 
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MOVL RO,COMP_RATE ; Computed rate for debug info 
BSBW XRATE_CRECK 


BBS #OUMP_MODEV,FLAG, 30$ ; BR if typing debug info 
7S ; BR around debug trpeout 


—-OCO 


Page i) 


308: 
P #5 
PUSHAQ FLOAT_PTR 


HL 
§ 1'CF a 
2 fF 7F PUSHAQ oye RATE 
00000000 ' GF 3 «FB CALLS #3,G™FORSCVT_D_TF ; Convert clock speed to text 
8 70B'CF ODE MOVAL MSGR ; Assume for now... 
70B'CF ODE MOVAL S_MSG,R i «eethat we will not have... 
70B' CF Bf MOVAL $_MSG,R8 3 «exactly one... 
2310'CF d 2 Sag #T,LA_B_ADS 3 «+eADII°K,... 
56 O7DE'CF ODE 408 MOVAL NULL_MSG,R6 3 «(but change the message if we do) 
2314'CF 01 91 CMPB ss #1, LA_B_DAS b sccAhliReces 
05 12 BNEQ S dee 
57 O7DE'CF ODE 50s NULL_MSG,R7 3 «(but change the message if we do) 
230c'CF 01 91 CMPB ss #1, LA_B_DRS : ..-0r DRI1-K... 
05 12 BNEQ § I es 
58 O7DE'CF ODE MOVAL NULL_MSG,R8 3 «e-(change the message if we do) 


60$: 
$SFAO_S CTRSTR = CONFIG_MSG,- ; Form configuration message 
OUTLEN = BUFFER _PTR,=- 


OOOCoGOOOCOOOoOOoOOoSoS 


SPP PMPPININIPINININ) 2 2  ~DOOCO MN NHNAMMMOVVIVIIO 


OUTBUF = FAO_BUF,- 

Pi = LA_6_ADS,- 

P = R67- 

P = LA/B_DAS,- 

ry = R77 

PS = LA.B_DRS,- 
= RB-- 


= #FLOAT_PTR 

PUSHAL BUFFER_PTR 

PUSHL #1 

PUSHL #UETPS_TEXT!STSSK_INFO 

CALLS #3,G*LTBSSIGNAL ; Type LPA11-K configuration 


OOOC'CF OF 


01 
00741133 8F DD 
00000000'GF 03 FB 708: 


FUR @ OC OONA UE WIN SO OD NAN E WIR = 9 OD NA UNE WI S| OOD NAUEW 
= 
oO 
< 
= 
= 


C089 Oa BD LPT WWIWIMWIWIWIWIWIIWIT OO SININVIOOD DW A EM PMO OUS MMOAOUIMN 


SNAAAAPAuvivi 
OOOO 09090969 09 69 69 69 09 09 SII NIN SNS NSN DDD PAA A AAD IIIT EE EE 


ee ed ee ee dd ed 8 8 ss ss ds 2 ss 2 8 = 2 4 4 2 = SS 4) 3 
ee ee ee a ed a ed ed td od — 3) — — 2) —) — Sd 2 2 2 a 2 8 2 2 SS SS SS — — 2 YY YS SY SS YH YS SY SS 


327 ce 3F PUSHAW LA_W_NUM 
4'CE ODF 5 PUSHAL LA-L~ 
gc. cF F 6 PUSHAW LA"W~IPRSET 
dt OF PUSHAL LA_L_IRATE 
00000000 ' GF 4 F 8 CALLS #4,G™"LPASCLOCKA : Preset the real time clock 
06F9 3 8 ; SB = CLOCKA_CHECK 
678 1: Set up the buffer structure necessary to transmit ard Reep track of data. 
tA § 3; Issue test requests based on the devices detected on the LPA11-K 1/0 bus. 
00 OD ru > PUSHL #SETIBF : Indicate the function we want done 
OA73'°CF O01 FB rt $6 CALLS #1,ONCE_FOR_EACH ; Set up buffers for each channel 
2310°CF 9 TSTB LA B_ADS : If there are no AD11-K's to test... 
9 1 38 BEQL rh Oe hae else... 
2318'CF 2310°CF 40 BF 8 6 MULB3 #64,LA_B_ADS,LA_W_NCHN ; ..cale ADIi-k samples/seq 


= 


Wait for sweeps to complete. Since notification of sweep completion happens 
at AST level but we want to continue with the rest of the test only when ail 


sweeps have completed, we'll wait until SWEEP_COUNT gets back down to zero 
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4'CF OF PUSHAL LA_L_IND 
: ‘CF F 3 PUSHAL tTTERAL 1 
18°CF F 9 PUSHAW LA_W_NCAN 
5 ‘Cr OF D PUSHAL LITERAL0 
0 oD A PUSHL # 
Spelt DF A PUSHAL LA_AK jour 
00000000 ' GF $ eB A CALLS #6,G*CPASSETADC i ...and set up A-to-D channel info 
OSE 6A BSBW  SETADC_CHECK 
re} 80S: 
681 : Release to the queue for initial LPA11-K use the buffers used by the test 
oe ; requests. 
02 DD 0681 : PUSHL #RLSBUF 
OA73'CF 1 FB 72 , CALLS #1,ONCE_FOR_EACH 3; Release buffers for each channel 
68 : Start the sweeps. First, initialize some parameters common to all sweep 
068 3 routines. Then set up a counter, SWEEP_COUNT, which will be incremented 
be8 : for each sweep we successfully start. Its use is explained below. 
233A'CF 01 BO 0688 : MOVW #1,LA_W_OWELL ; # of clock overflows between samples 
2318°CF 01 #8680 beeD MOVW #1,LA_W_NCHN 3; # of 1/0 device channels to sample 
2334°CF O02 00 th MOVL #2,LA_L_NBUF ; Count of total buffers to be filled 
22B8'CF 94 O06C CLRB SWEEP” COUNT ; Clear counter for successful sweeps 
01 OD gece PUSHL #SWEE 
OA73"CF O01 FB pace CALLS #1,ONCE_FOR_EACH ; Start sweeps on each channel 
06D 
06D 
06D 
D 
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ROOD NA NEW 9 OD NAME WIN OS OD NAUSEA SO OD NAME WN ODNOUES WIN 


06D polling it occasionally. We don't want to wait too long, however. so provide 
Rep an escape. Other error checking is done by the AST completion routines. 
56 D4 Ose 0s CLRL R6 ; Counter for times we've polled 
22B8'CF 95 06D4 " -TSTB_ = SWEEP_COUNT ; Finished all sweeps yet? 
2D 13 0608 BEQL ; BR if we hav 
Ose eateeee S DAYTIM = FIVE_SECONDS ; No, give them more time 
DE 56 18 F2 te AOBLSS” #MU_TIME_OUT,R6,90$ ; Loop to see if finished now 
o72"tr OF ore PUSHAL COURTED_OUT_MSG ; LPAl1-K seems to be hung 
00741132 8F 4 798 pus. GUE TPS_TERT!STSSK_ERROR 
09 1 07 BRW ERROR_EXIT 
4 4 100$: 
13 0002°CF 05 €1 0707 BBC #DUMP_MODEV,FLAG,110$ ; BR if not typing debug info 
O800'CF DF 070D PUSHAL MU_END_MSG 
1 DD Q711 PUSH #1 
0741133 8F DD ah PUSHL M#UETPS_TEXT!STSSK_INFO 
00000000 ' GF 3 «FB a 1108 CALLS #3,G*LTBSSIGNAL ; Give some reassurance 
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v04-000 


2318'CF 


2310'CF 
015¢ 


13 0002"CF 05 
O81E*CF 


"¢ 
poreiiss 8F 
00000000°GF 03 


22BD' CF 
2289" 


0 
00000000'GF 0 
05 


52. O0A44" 
00000000 ' GF 


2310°CF 


E 
00000000'G 
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0 
SEP=19 UVETP.SRC GETLPAKOO MAR; 1 


3% 
; This section will be skipped if there are no AD11-K's on the LPA11-K I/0 
3 bus. f there are exercise gach by initiating a request. There will be two 
3; buffers for each Ab1 “K, and buffers of information will be passed to the 
; test program before the request terminates. 
3 run at the sane lock rate as before. 

for completion without errors. 


The sweep will be started and 
Wait for the sweep to finish and check 
Again, no data comparison is done. 


see 


D_TEST: 
; LA_B_ADS 


10$_~ 

100$ ; 
#DUMP _MODEV,FLAG,20$ H 
AD_BEG_MSG 


Have we any AD11-K's? 
R + ° 
Skip this section if not 
BR if not typing debug info 


10$: 


MUETPS_TEXT!STSSK_INFO 
oes #3,G*LIBSSIGNAL 


AD_MCODE ,MCODE_ADOR ; We'll be dealing with A-to-D mcode 
#LASK_ADMCODE ,ACODE_TYPE 


PUSHAL LA_L_IERROR : 
PUSHAL LAZL-IND 
PUSHAW LA 


MCODE TYPE 
#4,G*CPASLOADMC 
LOADMC_CHECK 
LITERAL 


0 
LA_W_IPRSET 
‘s L_IRATE 


INTRVL 
#4 ,G*LPASXRATE : 
XRATE_CHECK 


Load dedicated A-to-D microcode 


Calculate the clock rate and... 


LA~ TE 
#4>G*LPASCLOCKA 3 
CLOCKA_CHECK 


SETIBF_ARGL_1,R2 
(R2) ,G*LPASSET IBF 
SETIBF_CHECK 


#64,LA_B_ADS.LA_W_NCHN ; 
Q 
LITERAL_1 


LA_W_NCAN 
LA TERAL_O 
# 


«»-preset the real time clock 


; (Pacify error checking routine) 
; Set up buffer structure 


Calculate AD11-K samples/sequence 


SOD AIA MEW 9 SO OD NIA NEW OOD NAME WIN @ O OO NOU EWA OOONOUS WA OWOONOUS 


—DOODOGDOOOS OOO OOOO OW O09 68 09 69 09 69 09 69 09 SINISE SNS NNN NPA AA AAAAO IIIT 


LA_AK_IBUF1 
#6,G*CPASSETADC : Set A-to-D channel information 


y 
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1:27:21 VMS 0 
Test the LPA 4 8) 30:2) P.SR GEo Bacoo” MAR; 1 3) 
04c5 30 


QB60'CF ODE 
00006 00' GF o6ne FA 
30 


BSBW SETADC_CHECK 
MOVAL RLSBUF_ARG ; (Pacify error checking routine) 


CALLG (R2), GLPASRLSBUF t Release buffers for initial use 
BSBW  RLSBUF_CHECK 


: Start the sweep 1°O the dedicated A-to-D test. LA_W_MODE is 3 t toa 


: default valve of f there is but one AD11-K, a Value of 8192 if there 
3 are two AD 
2338'CF B4 , CLRW LA_W_MODE : Default is one AD11-K 
06 3310. F 1 €1 BBC #1 “5” B_ADS,30$ ; BR if that is the case 
0 2338'CF OD €E2 am BBSS #13,LK_Q_MOOE,30$ : Otherwise indicate two ADI1-K's 
2334'CF 9 O000C8 8F 00 MOVL #200,LA_ L a" 3; Count of buffers to be filled 
: A'CF 01 BO MOVW #1 »LA_W 3 Time between sample sequences 
33c'cF 01 B80 MOVW #1-LA “4 stiien ; Delay until first sample is taken 
233E°CF 94 CLRB ; First 1/0 channel to be sampled 
ga! ‘CF O11 B80 MOVW gncins ; 1/0 channels to sample per sequence 
2 ‘:' a MOVAL gun 1,R2 ; (Pacify error checking routine) 
00000000 ' GF 6¢ FA CALLG tee Piel ; Start the sweep 
o5c3 30 BSBW © SWEEP_C 


Loop mie the sweep is continuing. Release a buffer whenever one is 


‘ retu 
ios: 
52. OAEC'CF ODE MOVAL IWTBUF_ARGL_1 3; (Pacify error checking routine) 
O000V000'GF 62 FA CALLG (R Re). “S*LPASTWfBUF 3; Wait for a buffer to be ready 
50 ES78'°CF oD MOVL K_BFNUM1 ,RO ; Put return status where convenient 
18 BLS ; BR when sweep finishes 
578'°CF OF PUSHAL LA_AK_BFNUM1 ; More to go, release the buffer again 
24'CF OF PUSHAL 4 
E000' CF DF PUSHAL LA_AR_IBUF1 
00000000 ' GF 03 FB CALLS #3 “OA CPASRLSBUF 
0672 30 BSBW RL SB UF _CHECK 
i) 11 BRB 3; Loop 


50$: 
0505 30 


13 O002"CF O05 €1 
O846'CF ODF 
1 dD 
F 
3 


BSBW ss IWTBUF_CHECK 


BBC HUMP MODEV,FLAG,100$ ; BR if not typing debug info 
PUSHAL AD_END_MSG 

PUSHL #17 

PUSHL —#UETPS, TEXT STSSK_INFO 


0741133 
CALLS »G*LTBSSIGNAL 


00000000 ° GF 
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CONAN AN CO OD NAW EWN $$ O OO NA UNE WIN 9 OO NAME WN O OONOUS ru 
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2314'CF 

03 

0134 

13 0002°CF 05 
0868 


‘CF 


i 
00741133 er 
Q00000000'GF 03 


57 

O2B8'CF47 57 
12B8'CF47 = 57 
EC 57 00000800 8F 
22BD'CF O28D'CF 
22B9'CF 03 
2328'°CF 

2392°Cr 

3 CF 

2B9' CF 

00000000 ' GF 
0404 

57°CF 

ae 

*CF 

2FA‘CF 

00000000 * GF O4 
0481 

322°CF 

4'CF 

as 
00000000’ GF 06 
047D 

12B8'CF 


>v 
— 


SMNNNININAOOOOOOOOOO Oo 
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data will 


oaiminis 
~“ 


WN 9 OU 9 OS PWIND NWI OU FS OVO FOF OONVNNNNNO FP OLMMmM 


‘G9 GD OS CD Cd Cd Gd Cd Cd OD Gd Cd CD CD CD CD 0D 0D C9 G9. 09 0D 09 0D 09 0D CD OD 0D 0D 0D 
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‘0 G0 CO Co: 
>Proo 


NAME WN = OD ODNOUE WIN" OOONO 


OWOO000 000000000000 G0 COGN CD C8 NII 


ott t ttt tt be 


ce a em ee ee ed ed od ts 3 dd 8 td 


et et et et et at ot at et kd Dk el Dk eM hh ah ah ah mh ahead ed 


St 4 *QOOOTOOOOCOCOVONO 
DIE WN "OC OODNOUS (NN "OS OO 


SOOCOGOCOGOOGOOOOOOOOOSOOOOOOOOCSoO 


RwWMMMMMoCo 


CLRL 
MOV 
MOVW 
AOBLSS 
MOVAL 
MOVL 


PUSHKAL 


CALLS 
BSBW 


PUSHAL 


+ 
If there is an AA11-K on the LPA11-K 
This test will be slig 
L allow the user 9 yew 
The test will fill two 
be output to channel 
the resultant waveform. The test wil 
the same speed as in the previous tests. 


or 


LA B_DAS 
O$ 

100 
#DUMP _MODEV,FLAG,20$ 
DA_BEG_MSG 
#UETPS_TEXT!STSSK_INFO 
#3,G*LIBSSIGNAL 


R? 

R? RAMP _DATACR74 
R7,RAMP-DATAICR } 
#RAMP_HEIGHT ,R7, 30S 


DA_MCODE ,MCODE ADDR 
#LASK _DAMCODE ,ACODE_TYPE 


LA_L_IERROR 
LATL~IND 
MCODE_TYPE 
#4,G°CPASLOADMC 
LOADMC_CHECK 
LITERAL_O 
LA_W_IPRSET 
LA“L~IRATE 


AIRTRVL 
#4, G*LPASXRATE 
XRATE_CHECK 


“LT IRATE 
#4°G™LPASCLOCKA 
CLOCKA_CHECK 


RAMP_DATA1 
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htly different 
a we pattern on an oscil ’ 

adjacent buffers with Aa data’’. This 
Of everal seconds and the use 

run with the real time ciock set at 


-00 p 2 
UETP  SRCSUESLPAROO MAR:1  o" c#ay 


rom the previous ones in that 


/0 oe start the dedicated D-to-A 
l 


oscope if s/he 
user may view 


Have we ony AA11-K's off the LPA11-K? 
Continue with D-to-A test if so 
Skip this section if not 


; BR if not typing debug info 


: FILL the “‘ramp'’ data buffer with data which will appear as a sawtooth shape 
3; when the AA11-K is watched with an oscilloscope. 


; Used as both index and data 

; RAMP1(R7) := R7 

; RAMP2(R7) := R7 

; Loop until top of ramp is reached 


; We'll be dealing with D-to-A mcode 


Load dedicated D-to-A microcode 


Calculate the clock rate and... 


esspreset the real time clock 


Set up... 
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vate Test the PALI oR g7 SE Er 18 4 8:55:24 YOETP. eRC Cro PAROS MAR: 1 ° dd, 
BS'CF OF FB 1417 PUSHAL RAMP_DATA i «+28 Special... 
1A'CE DF OBFF 1418 PUSHAL LA_K“LAMSKB ; ..eargument List... 
24'CF OF 3 14 PUSHAL LA_L_IND : «efor this... 
aa DF : q 14 0 PUSHAL LAZAR. IBUF2 : ..cone call 
52 5 Dd 30 14 § MOVL SP,R2 ; Pacify error checking & fake CALLG 
00000000 ' GF é pA 910 14 CALLG (R2),G*LPASSETIBF ; Set up buffer structure 
049A 0 917 1424 SBW SETIBE CHECK 
s...% § BA 1 5 ADDL2 #20,SP 3; Clean up the stack 
52. OB74'CF DE Q91D 14 : MOVAL RLSBUF_ARGL_2,R2 ; (Pacify error checking routine) 
00000000" GF g2 A 0922 14 8 CALLG (R2),G"LPASRLSBUF : Release buffers for initial use 
058D 0 , ; 1? 4 BSBW RLSBUF _CHECK 
2334'CF 0000908 8F DO 09 f 1431 MOVL #75,LA_L_NBUF ; Count of buffers to be filled 
38°CF B84 09 14 § CLRW LA_W_MODE 3; Sampling options 
§ 3a'CF 1 BO 0939 14 MOVW #17LA_W_DwWE 3; Time between sample sequences 
3C'CF 1 60 09 3 1434 MOVW #1,LA_W_LDELAY ; Delay until first sample is taken 
S3E'CF 94 0943 1435 CLRB  LA_B_ICAN ; First 1/0 channel to be sampled 
318°CF 01 BO 0947 1436 MOVW #17LA_W_NCH 3 1/0 channels to sample per sequence 
Al8'CF DE Q94C 1437 MOVAL SYSWPTARGL 2,R2 ; (Pacify error checking routine) 
00000000'GF 62 FA 0951 14 3 CALLG (R2),G*LPASDASWP ; Start the sweep 
0486 30 0958 143 BSBW  SWEEP_CHECK 
95B 1440 
958 1441 ; 
958 1226 3; Loop while the sweep is continuing. Release a buffer whenever one is 
958 1443; returned. 
95B 1444 ; 
958 1445 40S: 
52 OAFC'CF DE Q95B 1446 MOVAL IWTBUF_ARGL_2,R2 3; (Pacify error cheek ing routine) 
00000000'GF_ 62 FA 0960 1447 CALLG (Re) | GPL PASTUTBUF ; Wait for a buffer to be ready 
50 ES7C°CF DO 0967 1448 MOVL A_AK_BFNUM2,RO ; Put return status where convenient 
18 19 096C 1449 BLSS $ ; BR when sweep finishes 
cere ce DF 4) 1450 PUSHAL LA_AK_BFNUM2 ; More to go, release the buffer again 
24°CF DF 0972 1451 PUSHAL LA™L_IND 
EOC8'CF DF 0976 1426 PUSHAL LA_AR_IBUF2 
00000000 ' GF 93 re 97A 145 CALLS #3,G*CPASRLSBUF 
05 30 0981 1454 BSBW Ri SBUF _CHECK 
DS) 36.11) «=(0984 «61455 BRB 40$ ; Loop 
986 1628 508: 
0498 30 > 3 1037 BSBW IWTBUF _CHECK 
13 0002'°CF 05 €1 0989 1459 BC #DUMP_MODEV,FLAG,100$ ; BR if not typing debug info 
0893'CF DF O98F 1969 PUSHAL DA_END_MSG 
1 DD O9 : 146 PUSHL 
pores F bd 099 1986 PUSHL #UETPS_TEXT!STSSK_INFO 
0" GF 3. «FB (9 14 CALLS #3,G*LTBSSIGNAL 
9A2 1464 1008: 
9A2 1465 
9A 1496 
0214'CF b6 9A2 146 INCL ITERATION : Increment iteration count 
03 0002°CF 1 3 9A 1298 BBS #TEST_OVERV,FLAG,110$ ; BR if the test is over 
FB8D 1 OQ9AC 146 BR RESTART 3; Loop until the test is over 
9AF 14 ? 1108: 
0047 31 O9AF 147 BRW SUC_EXIT 


= 


-SBTTL One-Shot Testing 


The forced overrun test will run only in one shot mode. It will do a couple 
of regular were rene tors ys ing the multiuser microcode, then force a data 
eyerryn te see the LPA11-K can detect the situation. Instead of werne. 

e 
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Ve utO00 One-Shot Testing ety 8:35:28 UETP.SRC SESLPAROO MAR; 1 ° ie 5) 
1603 
1474 34 
1475 ; 
18 
98 1308 : the h if level language | interface rous ng it A us¢ $Q10s to Ry tt be 
9B2 1479; bral “K most of The exception is in initial pring the “K. 
9B2 1480; is is an error prone task which is petter per formed 7. e sy ston 
9B2 1481 ; nletessee loader process. We rationali fs A saying tha untess a user had 
9B2 14 § : epee ve microcode to load, he, too, would always use the stenderg rocedure. 
9B2 1485 ; Using 36 Os in other places permits us to take advantage of the $Q10's 
9B2 1484 ; flexibility: when we force an overrun, we don't want the user to think his 
9B2 1485 ; LPA11-K is malfunctioning, so inhibit error Logging with the IOSM_INHERLOG 
38 12 $3 i; modifier. The forced overrun test will be implemented in a future release. 
gee 1H aeygueytest 
22BD'CF O279'CF DE 0982 1490 ~ MOVAL AD_MCODE,MCODE_ADDR ; Try oe all fypes of ucode... 
22B9' CF 9e bt 44 231 poy 18 ADMCODE , ACODE TYPE ; ...analog-to-digital... 
22BD'CF 028D "CF pF a3 1498 MOVAL DA_MCODE ,MCODE_ADDR i wan 
22B9' CF 9 0 Baer 1338 Doak ; #LASK _DAMCODE, ACODE TYPE ; ...digital-to-analogue... 
22BD'CF O26F'CF ODE pace 1638 MOVAL MU_MCODE,MCODE_A 3 «sand finishing up with... 
22B9'CF 01 DO 09D 149 MOVL #LASK _MRMCODE, ACODE TYPE ; ...multiuser mcode 
03 10 papa 1498 BSBB 
OO1A 31 9DC 1499 BRW SUC_EXIT 
te 1304 100$: 
2328'CF DF O9DF 1308 "  PUSHAL LA_L_IERROR 
2304'CF OOF O9e3 150 PUSHAL LA-L~IND 
2322' CF OF 9E7 1504 PUSHAL LAW as i 
ooo00000"eFe” wv pe bore 1808 its pa tte 
O2cE 31 09F6 1507 BRW LOADMC_CHECK Check for errors 
O9F9 1508 ; Note that LOADMC_CHECK returns ‘ola RSB if it returns at all. 
O9F9 1509 ; Branching to it Ts equivalent to BSBW followed by RSB. 


E_TYPE 
*CPASLOADMC ; Load multiuser microcode 


0014'CF 0 
OO14°CF 8 4C 


09 
0002"cF. 0 
02 


eed | 


00741133 8F 
00000000'GF 03 
0214'CF 

FACA 


O1EE'CF 10000001 8F 


VAX/VMS_UETP D 
Finish Testing 


OF 
oF 
oF 
OF 
oF 
Al 


OOOCoCoooO 


>>r>>rrrrrr>r>r>rrrr rrr} 
QUI & Sroropropoporon 


Or O OD OMODoODwmoorL "oO 


ooo 


SUC_EXIT 


10$: 


» SBTTL 


$TRNLOG_ 


MOVL 
SEXIT_S 


SEP=1 
Finish Testing 


S$ LOGNAM = MODE,- 
RSLLEN 

0.BU 

ER 


MUETPS_TEXT!STSSK_INFO 
#3,G*LIBSSIGNAL 
ITERATIO 


#SS$_NORMAL!STSSM_INHIB_MSG,STATUS ; Set successful exit status 


STATOS 


QUPFER PTR, ~ 


C1 
evice rest ron we CrAftoe ngosepc1g8e 61:30:21 YAMS, Mee YOL=BO yg 


Get the run mode 

Convert to upper case 

Is this a loop for ever? 
BR if not 

Reset the termination flag 
Bump the pass count 


Make the end of pass message 
Push the string desc. 

Push arg count 

Push the signal name 

Print the end of pass message 
Reset the iteration count 

Do the next pass 


Exit with the status 


v6c 
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-SBTTL Common Subroutine Caller for Multirequest Mode 


p++ 
; FUNCTIONAL DESCRIPTION: 

This routine will be called whenever there is a common function to 
perform for each LPA11-K 1/0 bus channel in multirequest mode. for 
example, setting up channel buffer management info needs to be done 
for all connected Soy tcee. The routine provides a way to pool common 
code and make the main Listing somewhat more readable. 


CALLING SEQUENCE: 
CALLx #1,ONCE_FOR_EACH 


INPUT PARAMETERS: 
4(AP) has the function code for what each channel needs done. 


IMPLICIT INPUTS: 
The argument Lists for all subroutine calls are defined by the 
GEN_ARG_LIST macro. 
Various buffers and other subroutine parameters are elsewhere defined. 


OUTPUT PARAMETERS: 
NONE 


UVETLPAKOO 
Meets Page 76, 


UMMIMIMIVNIUIUINIUI EE BEEP 


OOO NA UNE WWI $9 OO NA UE WIN OOD NAME WI 0 OONA UNE WI OOONOAULS WN" OOOn 


IMPLICIT OUTPUTS: - 
ot fb and parameters mentioned above may be modified by subroutine 
ca 


a a td a at = = = = = = = = = = — —s 2d 2 — — — 9 © © ss  — ss —) 2 ss ts 2 ss a ss ss 


6 
6 
6 
6 COMPLETION CODES: 
2 NONE 
6 SIDE EFFECTS: 
é An error will result in an explanatory message and program abort. 
? = 
QA7 72 ONCE_FOR_EACH: 
OFFC par f eWORD = “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO,RI1> ; Entry mask 
02 00 04 AC 8F Oars 4 108 CASEB 4(AP),#0,#LAST_FUNCTION ; Go our separate ways based on function 
0032' DATA 7 .WORD SETIBF_SECTION-10$ 
QOE4* OA7C 7 -WORD SWEEP_SECTION-10$ 
008B" 0A7 7 WORD RLSBUF_SECTION-10$ 
. 3; Fall through only if there is a bad argument List. 
A SFAO_S CTRSTR = BAD_CASE_MSG,- ; Bad parameter passed to ONCE_FOR_EACH 
A OUTLEN = BUFFER_PTR,=- 
: OUTBUF = FAO_BUF,- 
= 
OOOC'CF DF OA PUSHAL BUFFER_PTR 
D QA9A PUSHL 
00741134 8F 44 ne pun #UETPS_TEXT!STSSK_SEVERE 
OEE ‘CF ¢ 00 AA MOVL #SS$_ABORT,STATUS ; This has to be a serious problem... 
05D AA9 9 BRw ERROR_EXIT 3 ...and we can't possibly recover 


VAX/VMS UETP DEVICE T 
Common Subroutine Cal 


3 SETIBF =SEETION: 


#1,85-1 Di 
§0$-30$,70$-30$, bos- 


om om om FNT OMWM OMmWNM 


8 T t ' 
n> n> o> > 
4 


om 


o-oo —-9 -—-9 —-9o —-9 OVO —9o-—0 —U-0 


som 


SETIBF COMMON: 
CALLG 


RPM 3 3 SB OQOOOOO OOOO OOOO 0O0O 


a kk tk a a 
POPP AA AAA AAA AA AAA AOA AAA AAPA AMAA 
BIE WN 2 O ODNAUE WIN =O ODNAUE WI OWODNAUIE 


—> 


F 
3 
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Do a call(s) to LPASSETIBF 
Any ADTI-KS configured? 


Set up AD11-K arg List 
Set up buffers 


oy ee configured? 
Set up AA11-K arg List 
Set up buffers 


$83°S) ong the eoguaber of DR11-Ks 
$,50$-30$ 
3; Fall through 7° none configured 


; Set up DR11-K #5 arg List 
; Set up buffers 


; Set up DR11-K _ arg list 
; Set up buffer 


; Set up aed be #3 arg List 
; Set up buffer 


; Set up DR11-K he arg list 
; Set up buffer 


; Set up ari) ia #1 arg List 
; Set up buffer 


; Common code for each type of device 
; Set up buffer array for sweeps 
; Return fat and happy via error check 
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Vet O00 Common Subroutine Caller for mote Spoaued -S =} 984 8) :3f ‘ft LTS ea sES. Banoo MAR: 1 5" (19) vec 
B RLSBUF SECTION: ; ze e. call(s) to LPASRLSBUF 
est0"tt 3 : 3 18 § ite 1A,8. ADS 3 Any gin configured? 
52 0B60'CF DF 16 ? MOVAL RLSBUF_ARGL_1,R2 : Set up ADI1-K arg List 
42 1 ! 1 4 108 BSBB RLSBUF =COMMON’ : it Ae buffers 
2314'CF % B1 i 4 TSTB LAs B_DAS ; Any AA11*Ks configured? 
o's B1 1635 BEQL ; BR if no 
52 ss BF B1 16 § MOVAL RLSBUF_ARGL_2,R2 ; Set up AAl1-K arg List 
» 4% 4H 19 208 BSBB RLSBUF — COMMON ; Release buffers 
OC'CR 8F OBIF 1 ; "  CASEB B_DRS,#1,#5-1 Dispatch on the number of DR11-Ks 
00080042" 0089 bodb-oogr* BSE 1826 308: “YOR” 60$230s 708-308, bos-$68, §s-30$. 408-3 
4 F 166] ae RET ; Fall through if none  euataned 
52 OBDB' CF oF 1848 ; MOVAL RLSBUF _ARGL_7,R2 ; Set up DR11-K #5 arg List 
w+} : ote 50s BSBB RLSBUF “COMMON ; Release buffers 
52 OBC4'CF oF 8 7 1948 : MOVAL RLSBUF_ARGL_6,R2 3; Set up DR11-K #4 arg List 
a. : 4 bot 60s RLSBUF “COMMON 3; Release buffers 
52 OBBO'CF DE E 1649 +  MOVAL RLSBUF_ARGL_5,R2 : Set up DR11-K #3 arg List 
OF 1 i 1929 708 BSBB RLSBUF “COMMON | ; Release buffers 
52 OB9C'CF DE 45 165¢ "  MOVAL ~=—s« RLSBUF_ARGL_4,R2 : Set up DRI1-K #2 arg List 
08 1 re: 1997 ace BSBB RLSBUF “COMMON ; Release buffers 
52 0B88'CF DE Opec 1655 = MOVAL_~—s RLSBUF_ARGL_3,R2 : Set up DR11-K #1 arg List 
01 10 0851 1926 BSBB RLSBUF “COMMON ; Release buffers 
0% Ops, 1888 xe 
54 1659 RLSBUF_ COMMON: ; Common code for each type of device 
O0000000'GF 62 FA 54 1660 CALLG (R2),G*LPASRLSBUF ; Release buffer array for sweeps 
0358 =31 5B 1661 BRW RLSBUF _CHECK ; Return fat and happy via error check 
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v04-000 Common Subroutine Caller for Multireques 
: i; Do a call(s) to LPASSWEEP 
2310'CF 9 Bee : ; ne A ,8..ADS ; oP configured? 
"CF. 0040 ? 8 a6? : 3 mov #56,LA W_MODE : Set up call specific... 
— a33c CF 8 BS 1869 coy #90; A-MCUDELAY 3 «arguments... 
"CF °70 1 x e eee 
al toad the Be 28 1683 MOVAL Scpoapae {he ; Set up ADI1-K arg List 
. Me 059 85 B81 1671 SBW SWEEP~ COMMON ; Start up a sweep 
ore erg 108: ; Any AA11-Ks configured? 
owe BEE te an ‘gran 
, 40 , 8 BBA 1858 MOVW #64,LA_W_MO ; Set up call specific... 
— asscrcr 19 8 B91 1928 ry #35-LAW-LDELAY + «+-arguments... 
‘CF 00 B96 167 V 0 § eee 
53 0000000 'GF DE +H 1898 MOVAL a kee nae sae ; Set up AA11-K arg List 
. saad 6 OBA? 1680 BSBW SWEEP~ COMMON ; Start up a sweep 
QBAA 1681 20$: f ® seis 
- #00,LA_W_MODE ; Value for all DISWP calls 
250000000'Gr BE OBAE ih MOVAL G*LPASDISUP.R3 5 
raat hee 3 13h: 1684 CASEB) LAB DRS, #1,#5~1 ; Dispatch on the number of DR11-Ks 
OB" 00TC* $06 SE*O0GE" beer 1685 30S: WORD 80$-30$,70$-30$,60$-30$, 50$-30$ , 40$-30$ 
verted talae Raritan: a Dac 16 $ : RET : ; Fall through if none configured 
OBC7 1687 40S: ; j 
. #00,LA_W_LDELAY ; Set up call specific... 
ase ce Oa 3 ade 16 9 MOVE 704 EAcBoICHN 3 .--arguments 
$3 Sh co" 1 1690 MOVAL  SWEEP_ARGL 7,R2 : Set up DRI1-K #5 arg List 
ed tan us Ti OBDG 1691 SWEEP_ COMMON ; Start up a sweep 
D8 1692 50S: 
* »LA_&_LDELAY ; Set up call specific... 
guarcer 19 go SOR T6g8 nowy 75 tay toe ; Setup call, 
g3° 66 CF OB 1695 MOVAL SWEEP_ARGL 6,R2 3; Set up DR11-K #4 arg List 
JP cater gi, tf Opes 1696 BSBB SWEEP~ COMMON 3; Start up & sweep 
POE 1997 608: : call specific... 
233C'CF 00 80 OBE9 1698 nov oO0 -LAW_LDELAY sa bad P 
g57e Sooa'tr ob OBS 1900 MOVAL SWEEP_ARGL_5,R2 : Set up DR11-K #3 arg List 
race 55 5 Sere 49) BSBB SWEEP~ COMMON ; Start up a sweep 
a SS ile ; Set up call specific... 
33C'CF 19 FA 17 MOV) #25,LA_W_LDELAY ; Set up call 
g33t ct Ch * 4 1708 ROVAL ai TA Tchh 2 ; Set'up DRIT-K #2 arg List 
Fes 12 i 09 17 $ BSBB = SWEEP_COMMON ; Start up a sweep 
C 1707 80$: 3 iti 
" -LA_W_LDELAY : Set up call specific... 
33Ecr 0080. OE) i ROVE #00; LATB-TCHN ; .-,arguments 
eae ST Tied 15 1710 MOVAL SWEEP_ARGL 3,R2 ; Set up DRII-K #1 arg List 
a Rrtaing 61 5 ETA 1711 BSBB SWEEP~ COMMON ; Start up a sweep 
04 OCIC Hats RET 
CiD 171 - ¢ ode for each type of device 
C1D 1714 SWEEP_COMMON: : mg > eae 
63 62 FA OQOCID 1715 CALLG (R2),(R3) : a p carted cuccocetult 
, NC SWEEP_COUNT : Assume sweep $s 
ae HT f ‘Se 1543 anu SWEEP_CHECK ; Return fat and happy via error check 
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-SBTTL AST Level Completion Routines 


FUNCTIONAL DESCRIPTION: 
These routines are called whenever the LPA11-K signals that it has 
a buffer ready to process. Although we do age ty with the buffer, 
we have to appease the LPA11-K by picking up the buffer number. 


CALLING SEQUENCE: 
Called at AST Level by LPA11-K support routines via CALLx. Indicated 
for use by the LPAS sweep routine IEFN argument. 


INPUT PARAMETERS: 
NONE 
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IMPLICIT INPUTS: 
Because each LPA11-K channel gets the address of a different routine 
when the sweeps are started, the entry point to each of these routines 
effectively tells us which channel has a waiting buffer. 


OUTPUT PARAMETERS: 
NONE 


en ee ee ee 


IMPLICIT OUTPUTS: 
a rere and parameters mentioned above may be modified by subroutine 
calls. 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
An error will result in an explanatory message and program abort. 


LA_A_IGTBUF_7: 
- WORD 


OFFC “M<CR2,R3,R4,R5,R6,R7,R8,R9,R1I0,R11> ; Entry mask 
52 OBS4'°CF ODE MOVAL IGTBUF_ARGL_7,R2 ; Set up DR11-K #5 arg List 
34—COi«*dA'T BRB IGTBUF — COMMON 
LA_A_IGTBUF 6: 
OFFC -WORD “M<R2,R3,R4,R5,R6,R7,.R8,RI,.RIO,R11> ; Entry mask 


52 0B48'CF oF MOVAL IGTBUF_ARGL_6,R2 ; Set up DR11-K #4 arg List 
ak BRB 


IGTBUF — COMMON 


COCONINO OOM OO Waa SSS 


LA_A_IGTBUF 5: 
- WORD 


POOMOOOAOIOOONOAOIONOIONOAAOHOQAOAOAOAAIAOAHAAAOAHAHAAAAHAAOOHAOAAAOHAOAAAOOOAO 
a a ee ed a od od = 2 2 8 = 8 2 2 — — . ) _  — — — —) — 2 — 1) 2 2 2 
DEAN @ OOO NIA AE WI S OOD NAME WN SO OO NAME WN OS ODNAU ES WN OVWONOULSWN—0O0 —m 


NNNNNNNN NNN NSN SSS 
NNSA AAA AAAA AA MUIMVIMVUIUIVIVIUIE BE RE RRR RE 


SOOOSCOOOCOOOOCOOOOO OOOO OO OOOO OOOOSOOOOOOOOOOOOO 


OFFC “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO,RII> = Entry mask 
52 OB3C'CF oF MOVAL IGTBUF _ARGL_5,R2 ; Set up DR11-K #3 arg List 
m4 4 BRB IGTBUF ~ COMMON 
4 LA_A_IGTBUF _4: 
OFFC 2 -WORD “M<R2,R3,R4,R5,R6,R7,.R8,.R9,RIO,R11> = Entry mask 
52 0B30'CF oF 44 MOVAL IGTBUF_ARGL_4,R2 ; Set up DR11-K #2 arg List 
76S 49 BRB IGTBUF ~ COMMON 


Q0000000°GF 62 
08 


VAX/VMS 
AST Leve 


OFFC 
0B24'CF oF 
10 #1 


OFFC 
OB18'CF DE 
07. «11 


OFFC 

OBOC'CF DE 
FA 

B2 8 

O1AF 0 

04 


Complet 


= 
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on Routines 
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LA_A_IGTBUF_3: 


IGTBUF _COMMON: 
CALLG 


1548 

ie on 
17 MOVA 
Vf 9 BRB ' 
17 : LA_A_IGTBUF 2: 
Vv : . WORD 
17 MOVAL 
if § ars 
17 § LA_A_IGTBUF _1: 
1230 . WORD 
1788 MOVAL 
179 ;BRB 
1794 

1795 

1098 

179 

1798 

1799 
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“M<R2,R3,R4,R5,R6,R7,R8,RI,R10,R11> ; Entry mask 

IGTBUF __ARGL_3,R2 ; Set up DR11-K #1 arg List 
IGTBUF “COMMON 
“M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> =; Entry mask 
IGTBUF _ARGL_2,R2 ; Set up AA11-K arg List 
IGTBUF “COMMON” 
“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 


IGTBUF _ARGL_1,R2 ; Set up AD11-K arg List 
IGTBUF “COMMON 


(R2) i liana ; Get next buffer to process 
aoa (Rr 3; Save the return status 
IGTBUF heck 3; See if sweep went correctly 


Dismiss the AST 
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-SBTTL Error Checking Subroutines 


FUNCTIONAL DESCRIPTION: , 
This set 9 routines checks for errors returned by ene various high 
level LPA11-K aupeer’ routines. It was decided to isolate them from 
ene vane code because they greatly diminished the readability of the 
xt. 


CALLING SEQUENCE: 
ier are typicelly invoked immediately following one of the LPAS... 
routines. Called by BSBw. 
INPUTS, OUTPUTS, COMPLETION CODES AND SIDE EFFECTS: 
fhe code executes in the context of the portion of the main code which 
called it. Forming subroutines of these is an attempt to avoid the 
peace overhead which would be incurred were they implemented as macros. 
Therefore, there are no explict input/output parameters or returns. I 
an error {s found, an appropriate message is formed and the program is 
exited. It is the responsibility of the programmer to see that each 
routine is called uniformly throughout the program. 


CONF IG_CHECK: ; Here when we determine 1/0 bus configurati 
ADDB3 LA_B_ADS,LA.B_DAS,R7 ; See... 
ADDB2 LA _B_DRS,R7 i eeeif we can see any devices at all 
BEQL 108 
10$ a 
MOVL #SS$_BADPARAM&<*C*B111>!STSS$K_SEVERE, STATUS 
se ry NAKEB_ERR_MSG ; Nothing configured, must be busted 
PUSHL M#UETPS_TEXT!STSSK_SEVERE 
PUSHL 
BRW ERROR_EXIT 
SETADC_CHECK: ; Here when A-to-D channel info set up 
Hit LA_L_IND,10$ ; No error message if call succeeded 
108: 
SFAO_S CTRSTR = ADI1K_ERR_MSG,- ; Yell if it failed (impossible, but) 
OUTLEN = BUFFER PTR,- 
gyTeur = FAO _BUF,- 
P = MU_ACODE 
PUSHAL BUFFER_PT 
PUSHL #1 
PUSHL M#UETPS_TEXT!STSSK_ERROR 
PUSHL # 


BRW ERROR_EXIT 
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cc? (1 § LOADMC _CHECK: ; Here when mcode just loaded 
01 2324'CF Fe cc? (1 BLBC LA_L_IND,10$ ; microcode loaded correctly? 
5 333 | 2 108 RSB ; Return if all is well 
56 0238'CF een f CD 1 $ ; sth #UNIT_LIST,UNIT_LIST,R6 ; Point to unit data block 
A QCD? 1 BICB #UETURTSM TESTABLE, - ; This unit is no longer testable 
96 A cb9 1 § UVETUNTSB_FLAGS(R6) 3 (LOADMC_CHECK called in ONE-SHOT mode) 
2324'CF 0334 A a tee ! 23 Hy #SS$_DEVREQERR,LA_L_IND ; Is this’... 
2324°CF 0054 br 8} ces 61 cHPM #SSS$_CTRLERR,LA_L_IND ; ...an error code which... 
2324'CF 032C or sf cep } és tara #SS$_DEVCMDERR,LA_L_IND ; ante ye* sete tent info? 
: 8 
54 O32D'CF DE OCF6 1865 MOVAL LOAD_MISC_ERR_MSG,R4 ; It's not - give a dumb message 
50 D4 OCFB 1 96 CLRL RO ; Supply dummies for $FAO below 
2) D4 OCFD 186 CLRL R1 
¢ D4 OCFF 1868 CLRL R 
5 D4 44 1 $2 CLRL PR 
19 11 4h } oy 208 RB 30$ 
54 080 cE DE Spe 1 a) MOVAL LOAD _BAD_ERR_MSG,R4 : Give msg with additional info 
50 B8'CF 9A ODOA 187 MOVZBL LA_L_IERROR+0,R0 ; Get LPAT1-K Control Out register... 
51 ; 9'CF 9A QODOF 1874 MOVZBL LA_L_IERROR+1,R1 ; ..-Status Out register... 
26 A‘CF 9A QD14 1875 MOVZBL Te eA 3 ecctO¥ pyte Maintenance Status... 
5 32B'CF 9A yo19 1376 30s MOVZBL LA_L_IERROR+3,R 3 «.eand high byte Maintenance Status 
ODIE 1378 2 SFAO_S CTRSTR = (R4),- ; Form whichever error message 
ODIE 187 OUTLEN = BUFFER PTR,- 
ODIE 1880 OUTBUF = FAO BUF,- 
OD1IE 1881 P1 = MCOBE_ADDR,- 
pote 1 rf P = Ri,- 
DIE 138 P = + Se 
ODIE 1883 PSs ROT 
OrEE’Cr OteECE DD Obs 188 PUSHL «STATOS 
me ee ip fat peretrn 
00741130 $F DD OD4C 1890 PUSHL #UETP$_TEXT 
6— 03 00 aaa v4 4 D3 ! 4! oe 4 LA.L_IRD,#STSSV_SEVERITY #STS$S_SEVERITY, (SP) 
0321 1 p58 «(1 38 BRW ERROR_EXIT 
D5E 1894 
salt 
DSE 1 39 XRATE_CHECK: : Here when clock A rate calculated 
50 d D5E 1 38 TSTL RO : Error only when function value is 0 
o> 6 189 BEQL 10$ 
BEE 13 oy, 8 
O351'CF DF 006 1908 : PUSHAL BADRATE_ERR_MSG 
00741132 8F BP +4 i : shiny #UETPS_TEXT!STSS$K_ERROR 
03 Rt pet 1906 BRW ERROR_EXIT 
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3 nore when, real time clock gets preset 


LA_L_IND,10$ 3 ony errert ‘ 
urn no 


& 
#UETPS 
Lh ™ TAD” PSTSSV. SEVERITY ,A#STS$S_SEVERITY, (SP) 


ERROR_EXIT 


; Here when buffer List initialized 


a08(R2),108 ; BR if some error was found 
CTRSTR = SETUP_ERR_MSG,=- ; Complain if we found an error 
OUTLEN = BUFFER _PTR,- 
OUTBUF = FAO BU ft 

MCOBE_A ADDR 


P1 

BUFFER_PTR ' 
#UETPS_TEXT!STSSK_ERROR : ... 
ERROR_EXIT : We can't continue 


; Here when returning from sweeps 


LA_L_IND,10$ 3; Any indication of an error? 
; No, return 

SWEEP_COUNT ; This sweep failed, don't wait for it 
CTRSTR = SWEEP_ERR_MSG,- ; Complain about the error 
OUTLEN = BUFFER_PTR,~ 
cuTBuF = FAO BUF,- 

P = MCODE_ADDR 

LATE AIND. » STATUS ; Supply an exit status 
BUFFER_PTR 

eye irs EXT 

Lh. s IRD” PSTSSV SEVERITY ,@STS$S_SEVERITY, (SP) 
ERROR_EXIT 
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E21 1961 IGTBUF_CHECK: ; See if buffer qot filled correctly 
E21 1962 IWTBUF_CHECK: $ pece after waiting for a buffer to be fill 
+ D E } 19 TSTL 8 ; Did the sweep terminate? 
ss E 19 BLSS 10$ ; BR if it did 
0 E 5 13 5 _ RSB ; Return if it hasn't yet 
51 04 A2 OD E g 13 > MOVL 04(R2),R1 ; Point to I10SB for this sweep 
61 8B E2A 19 8 TSTW (R1) ; Is the sweep still active? 
01 i; Eec 138 BNEQ 20$ ; BR if not 
0 : ; 1309 208 RSB ; We do nothing if it is 
22B8'CF 97 OE 1328 DECB SWEEP_COUNT 3; This sweep has terminated, don't wait 
E 197 ; (This has no effect unless multiuser) 
01 61 Fe E 1974 BLBC (R+),30$ ; Any indication of an error? 
5 ; § 130? 30s RSB 3; No, return 
O1EE'CF 6! 3C 0E37 1399 MOVZWL (R1),STATUS 3 Supply an exit status 
61 0334 oF * Fe) 1378 yy gS DEVREGERR, (A1) : Is this... 
61 0054 A f pete 1981 yy #SS$_CTRLERR, (R1) 3 «.-an error code which... 
61 032C¢ or sf Reee 1? ¢ er #SS$_DEVCMDERR, (R1) 3 ag {ieee adetetonat info? 
54 O3FD'CF ODE 0E51 1984 MOVAL IWTBUF_MISC_ERR_MSG,R4 ; It's not - give a dumb message 
50 «4 be 38 1985 CLRL RO ; Supply dummies for $FAO below 
51 04 OE58 19 $ CLRL R1 
26 D4 OESA 19 CLRL Re 
5 D4 OE5C 1988 CLRL R 
= 6 4 138? 408 BRB 50$ 
54  QO42C'CF DE OE60 1991 MOVAL WIBUF_BAD_ERR_MSG,R4 ; Give eee with additional info 
50 4 Al 9A OE6 1336 MOVZBL 04(R1).R ; Get LPAT1-K Control Out register... 
26 Al 9A QE69 199 MOVZBL ohhh ok 3 «low byte Maintenance Status... 
5 07 Al 9A QE6D 1994 MOVZBL (R1),R 3 ooehign yte Maintenance Status... 
51 05 Al 9A a4 1995 MOVZBL 0Q5(R1),R1 3 ..-.and Status Out register... 
51 AS 8F 91 OE75 1996 CMPB #LA_K_OVERRUN,R1 ; Error was buffer overrun/underrun? 
05 12 OE79 1997 BNEQ 50$ ; BR if it was something else 
54 O4AC'CF ODE 44) 1338 50s MOVAL OVERRUN_ERR_MSG,R4 ; Supply specific error msg if it was 
E 0 SFAO_S CTRSTR = (R4),- ; Form whichever error message 
E 1 OUTLEN = BUFFER_PTR,- 
E § OUTBUF = FAO BUF,- 
E P1 = MCOBDE_ADDR,- 
E 4 Ps = Ri,- 
E 5 P = RO,- 
E $ P4 = R3,- 
E P =R 
1EE ‘CF DD OE9D 8 PUSHL STATUS 
0 oer a eA : i GUFFER_PTR 
gore} F OD EA 19 PUSHL #UETPS_TEXT 
6— O03 0 iat V4 oS si 1 hy hl STATUS .@STSSV_SEVERITY .#STSSS_SEVERITY, (SP) 
01C6 1 OEB6 14 RW ERROR_EXIT 
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108: 


OONOULE UM 


RSB 
$FAO_S 


P=19 


LA_L_IND,10$ 


CTRSTR = RELEA 
OUTLEN = BUFFER _PTR,= 
OUTBUF = FAO _BUF,- 

P = MCOBE_ ADDR 
LA_L_IND, STATUS 
BUFFER_PTR 


#VETPS_TEXT!STSSK ERROR 
ERROR_EXIT 
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; Here after buffers are weds again availabl 


3; Any indication of an error 
; No, return 
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SE_ERR_MSG,- ; Yes, complain 


; Supply an exit status 
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4; 

5 3 

: CALLIN 
40 : INPUT 
i 
rk + IMPLIC 
a8 

46 > OUTPUT 
is : 

49 : IMPLIC 
it 

52 : COMPLE 
iH 

55 3 SIDE E 
3$ 3 

57 : 

58; 

59 
60 
61 
§§ 
64 
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~SBTTL Timer Expiration Routine 

ONAL DESCRIPTION: 

sees eyytne will be called when the timer to mark the end of the test 


G SEQUENCE: 
Called via AST at SSETIMR expiration. 

PARAMETERS: 

NONE 

IT INPUTS: 

NONE 
PARAMETERS: 
NONE 

IT OUTPUTS: 
NONE 

TION CODES: 
NONE 


FFECTS: 
Sets a flag to indicate timer expiration. 


TIME_OUT: 


«WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> ; Entry mask 


Bigwe #TEST_OVERM,FLAG ; Indicate end of pass or of test 
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-000 System Service Exception Handler -SEP-1984 
-SBTTL System Service Exception Handler 


+ 

FUNCTIONAL DESCRIPTION: 
This routine is executed if a software or hardware exception occurs or 
if a CTBSSIGNAL system service is used to output a message. 


CALLING SeQUEnCe 
Entered via an exception from the system 
INPUT PARAMETERS: 
ERROR_COUNT = previous cumulative error count 


AP ===-> | 2 


OOOCCOOCCOOCCOOOoOOoO 
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DEPTH : Mechanism Array 


P°] 
—s 
cites 


; 
! 
' 
i N-3 ADDITIONAL | Signal Array 
i LONG WORD ARGS | 

' 

' 

Vv 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SS$_NORMAL if it's a UETP condition or RMS error. 
peree status from exception, otherwise. 


SIDE eprecrss 
May branch to ERROR_EXIT. 
May print a message. 


Bete Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Sets Sete Se 
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System Service Exception Handler SEP-1984 


EF 123 SSERROR: 
. <RE,RS,R4,R9,R6O,R/7,RE,RY, ° > ; Entry mas 
OFFC Er } ¢ WORD *M<R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 E k 
EF 1 8 SSETAST_S ENBFLG = #0 ; Disable AST delivery 
1 DD OF } 1 Pi #1 ; Assume ASTs were enabled 
50 9 Dp} F 1 8 CMPL Fog SEP WASSET RO ; Were ASTs enabled? 
: F | 1 BEQL 0$ ; BR if they were 
6—E D4 4 ; ! 9 108 CLRL (SP) 3; Set ASTs to remain disabled 
FOA 21 § SSETSFM_S ENBFLG = #0 ; Disable SS failure mode 
01 OD OF1 1 PUSHL #1 ; Assume SS failure mode was enabled 
50 83 D1 OF 134 CMPL Bot oP MASSET RO ; Was SS failure mode enabled? 
2. oe oy 135 BEQL 0$ ; BR if it was 
6E 04 fia ! 8 208 CLRL (SP) ; Set SS failure mode to remain off 
56 04 AC DO ahs 138 MOVL CHFSL_SIGARGLST(AP),R6 ; Get the signal orace gototer 
59 04 A6 7D Fs 139 mova shrek SIG_NAME(R6),R9  : Get NAME in RO and ARG] in R10 
10 ED OF24 2140 CMPZV = #STS$V_FAT_NO,- ; Is this a message from LIBSSIGNAL? 
0c OF § 141 #STS$S_FAC_NO,- 
00000074 8F 59 OF 148 RO, MUETPS_FACILITY 
14 12 FOD 214 BNEQ 308 : BR if this is not a UETP exception 
66 02 C2 OF2F 2144 SUBL2 #2,CHFSL_SIG_ARGS(R6)  ; Drop the PC and PSL 
OF32 2145 SPUTMSG_S MSGVEC= CAFSL_SIG_ARGS(R6) ; Print the message 
21 11 he 133 308 BRB 40$ ; Restore ASTs and SS fail mode 
59 Q0000045C 8F 01 Ores 148 CMPL #SS$_SSFAIL,R9 ; RMS failures are SysSvc failures 
2 12 OF4A 2149 BNEQ 50$ ; BR if this can't be an RMS failure 
10 ED OF4C 2150 CMPZV) = #STSSV_FAC_NO,- 3; Is it an RMS failure? 
oc OF GE 151 #STS$S_FAC_NO,- 
01 5A FGF 138 R10,#RAS$_FACILITY 
B 12 Fal 15 BNEQ 50$ ; BR if not 
5A  FQ000000 8F CA OFS 154 BICL2 #*xF0000000,R10 ; Strip control bits from status code 
08 A6 % 39 $y 133 MATCHC #4 CHFSL SIG_ARGI (RO) ,~ ; Is it an RMS failure for which... 
004D'CF ay: 139 NO RMS_AST_TABLE ; ».-no AST can be delivered? 
1A 13 Bros 138 400 BEQL 508 ; BR if so - must give error here 
01 BA Or ee 160 POPR #*M<RO> ; Restore SS failure mode... 
F66 2161 SSETSFM_S ENBFLG = RO E ace 
01 #=®BA eof 196 POPR #*M<RO> 3; Restore AST enable... 
F71 216 SSETAST_S ENBFLG = RO S see 
50 01 DO OF7A 2164 MOVL S“#SS$_NORMAL ,RO ; Supply a standard status for exit 
04 pep 192 50s ; Resume processing (or goto RMS_ERROR) 
OIEE'CF 59 DO OF? 183 MOVL R9,STATUS ; Save the status 
58 04 OF 198 CLR ; Assume for now it's not SS failure 
59 0000045C 8F D1 OF 1 CMPL #SSS$_SSFAIL,R9 ; But is it a System Service failure? 
8 12 OF8C 21 9 BNEQ 7 ; BR if not - no special case message 
F8E 217 SGETMSG_S MSGID = R10,- ; Get SS failure code associated text 
FRE 1% MSGLEN = BUFFER_PTR,- 
F8E 17 BUFADR = FA _BUF ,- 
FRE 2174 FLAGS = #14,- 
O21D'CF 9 FA 158 TSTB mee BrOCKsT me Get FAO arg count for SS failure code 
: Ge r 
16 3 FA 158 BEQL ¥ ; Don't use SGETMSG if no SFAO args... 
ooee st OF FAB 178 PUSHAL ayF Fen pre ; ...else build up.. 
1 DD OFAF 217 PUSHL # t ..e@ Message describing... 


E 13 
ueyuranoo VAX/VMS UETP DEVICE TEST FOR THE LPA11-4 ts St 8 
v04-000 SEP=1984 


g7t¢ 21 VAX/VMS Macro v04-00 Page 50 
System Service Exception Handler 5: 


46 (CUETP.SRC UETLPAKOO. MAR; 1 (28) 


00741130 gr D FB1 21 9 PUSHL 6 MA TEXT 3 age the System Service failed 
00 A Ff FB? 21 INSV STSSV_SEVERITY,- ; Gi he message... 
of FBA 21 ; asTéss LSEVERITY, (SPS  ...the correct severity code 
DO OFBC 21 MOVL ; R8 ~ ; Count the number of ares. we pushed 
11 OFBF 2184 BRB 7 4" 
FC) 2185 60$: 
34 DD 43) 1 § PUSHL R10 ; Save SS failure code 
58 dO az ! S 708 MOVL #1,R8 ; Count the number of args we pushed 
57 = 66 9% CS OFC6 2189 MULL #4, CHFSL_SIG_ARGS(R6) ,R7 ; sy Longwords to bytes 
5E 3 FCA 2190 SUBL R7,SP ; e the current signal array... 
6E 04 A6 2 ay 13) MOVC R7,CHFSL_SIG_NAME(R6),(SP) ; “ae the stack 
7 66 8 4 FD 1 ¢ ADDL R8,CHFSL-SIG_ARGS(R6), step) ; Push the current arg count 
O0A6 31 OFD6 219 BRW ERROR_EXTT 
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~SBTTL RMS Error Handler 


FUNCTIONAL DESCRIPTION: 
This routine handles error returns from RMS calls. 


; CALLING SEQUENCE: 
Called by RMS when a file processing error is found. 


INPUT PARAMETERS: 
: The FAB or RAB associated with the RMS call. 


; IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
; NONE 
IMPLICIT OUTPUTS: 
Error message 


; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Program may exit, depending on severity of the error. 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 RMS_ERROR: 
OFFC 8 eWORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11> ; Entry mask 
56 O04 AC 00 QO MOVL 4(AP) ,R6 ; See whether we're dealing with... 
66 03 91 0 CMPB «0s #FABS$C_BID,FABSB_B1D(R6); ...a FAB or a RAB 
16 12 8 E EQ 10$ ; BR if it's a RAB 
57 O1ED'CF ODE E MOVAL FILE,R7 3; FABe-specific code: text string... 
58 56 v0 OFE L R6,R ; «address of FAB... 
OC A6 DD E PUSHL FABSL_STV(R6) 3 «STV field for error... 
83 A6 OD E PUSHL FABSL_STS(R6) 3 «STS field for error... 
O1EE'CF 8 A660 F MOVL FABSL_STS(R6) ,STATUS 3 «..and save the error code 
o. 4 _ BRB COMMON ; FAB and RAB share other code 
57 OO'CF OD F MOVAL RECORD,R7 3; RAB-specific code: text string... 
58 30 AG OD ai L RABSL_FAB(R6),R8 : ..-address of associated FAB... 
A6 OD 1003 PUSHL RABSL_STV(R6) ; «STV field for error... 
A6 DD 1 3 PUSHL RABSL_STS(R6) ; «STS field for error... 
OIEE'CF 08 A6~ 00 ' ; common MOVL RABSL_STS(R6) , STATUS 3 «and save the error code 
5A 34 AB QA 100F MOVZBL FABSB_FNS(R8),R10 ; Get the file name size 
101 $FAO_S CTRSTR = RMS ERR STRING,= ; Common code, prepare error message... 
101 OUTLEN = BUFFER_PTR,- 
101 OUTBUF = FAO_BUF,- 
101 Pi = R7,= 
101 PG = R16,- 
101 P = FABSL_FNA(RB) 
OOOC'CF DF 102d PUSHAL BUFFER PTR 3; ...and arguments for ERROR_EXIT... 
1 pd 1 } PUSHL # 5 ose 
00741130 8F DD 1 PUSHL M#UETPS_TEXT I «00 


_— 
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v04-000 RMS Error Handler g- SE 1 382 8:32:23 UETP.SRCJUETLPAKO Onan: 1 ° (38) Ta 
EF 163 ¢ EXTZV #STS$V_SEVERITY,- 
1 38 got sueapE VERITY .@ 
59 = OEE CF 1 ? STATUS,R i «get the severity code.. 
6E 59 BR 104 BISB2 R2. (SPS : ...and add it into the signal name 
93 0 104 PUSHL # : current arg count 
0 104 BRW ERROR_EXIT 
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“SEP=1 5:46 CUETP.SRC GETLPAKOO. MAR; 1 (39) 
~SBTTL CTRL/C Handler 


p++ 
3 FUNCTION. DESCRIPTION: 
This routine handles CTRL/C AST's 


CALLING SEQUENCE: 
Called via AST 


INPUT PARAMETERS: 
NONE 


4 04: 


PRR RRR 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


PRR RRR RRR RR RR PRR PRPS 
<0 OOO 0.09 00.09 00.09 09 09 09 09 09 SI NINIIININS NNNINAAAAAAAAOAOU 
MEUM @OODNAUS WN SO OONAUE WN OODNAUE 
oOo Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


8 SIDE EFFECTS: 
4 NONE 
: CASTHAND: 
OFFC ~ WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> = Entry mask 
OOA3'CF OF 4A PUSHAL CHTRLCHSG : ie message pointer 
1 OD f PUSHL #1 arg count 
00741130 8F OD 5 PUSHL #UETPS_TEXT!STSSK _WARNING _ *. signal name 
DD 28 PUSHL 2a an abnormal termination 
0148'CF OF 5 PUSHAL PROCESS_NAME 
DD 5C PUSHL ee 
00741060 8F DD 105E 229 PUSHL sUETPS ABENDD ! STSSK jae 
00000000' ape 07 ~=2+FB 64 9 CALLS LTBS$S ; Output the message 
DO 106B 2298 MOVL aici INHIB_MSG! ~ : Set the exit status 


0 
S Tesh SUCCESS#STSSK _WARNING>,- 


O1EE'CF 10000650 8F STAT 
SEXIT_S STATUS ; Terminate program cleanly 


SOOCOOOOOOCOCOCOCSOSOSOOOSOSOSOOOOSOOOOOOOO 


NADOR 
HFOOon 
ooo 
rt 
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-SBTTL Error Exit 


p++ 
; FUNCTIONAL DESCRIPTION: 
3 This routine prints an error message and exits. 


3; CALLING SEQUENCE: 
MOVx error status value,STATUS 
PUSHx error specific information on the stack 
PUSHL current cgumene count 
BRW ERROR_EXIT 


INPUT PARAMETERS: 
Arguments to LIBSSIGNAL, as above 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
Message to SYSSOUTPUT and SYSSERROR 


cities OUTPUTS: 
Program exit 


| 


SNE 
SN Fe Fe re re rr 


PUSHL #UETPS_B GIND:STSSK _succéss's naa the message code 


0 
8 
O7F COMPLETION CODES: 
O7F NONE 
O7F 
hi SIDE EFFECTS: 
7F NONE 
O7F 
14 
7F 
oor ERROR_EXIT: 
O7F SSETAST_S ENBFLG = #0 ; Aste wnt play havoc with messages 
15 0002°CF O03 EO 1088 BBS #BEGIN_MSGV,FLAG,10$ : Mig ae msg ay printed 
7E 4 net CLRL ret 3 Set me stamp f 
OOOF'CF ODF 9 PUSHAL ygst. NAME : get. the test name 
02 OD 94 PUSHL the argument count 
00741039 8F DD 6 
‘ 
A 
Ad 
AD 
AF 


cc ac ee ce ce ce ce ce ce ce we ee ee ce ee ee ee cD ce ee ee ee ee DD ce ee ee ee ee ee ee ee ee ed ed od od od 


DPV Be BP BBE BE ENA NANI AIP PIPIPOPONPININIPIDD 2 2 OO SS 


DONA NE WN SO OOO IANS WWI OS OD NALS WIN @ OOD NAME WWI 2 OOD NAUES WI OWODNOUE 
7 
t 


00000000'GF 04 FB 108 CALLS #4,G*LIBSSIGNA 3 Print the startup message 
0230°CF O08 8E (C1 ADDL3 5 oe ARS COUNT ; Get total # args. pop perttek count 
OIEA'CF D6 INCL ERROR_COUNT ; Kee running error count 
00 = «~DD PUSHL #0 : Push the time parameter 
148°CF OF PUSHAL oeuck 5 NAME : Push test name... 
+4 oF DD 3 PUSHL #*XF ++-arg ¢ count.. 
007410E2 8F DD PUSHL #UETPS_ABENDD:STSS$K ERROR TH signal name 
1EA'CF DD F PUSHL T ; Finish off arg List... 
148°CF OF C3 PUSHAL PROC NAME oeee 
8 F OD C PUSHL #*Xx1 
07% F DD ce PUSHL fue TPS ERBOXPROC ! STS$K _ERR ROR for error box message 
00000000'GF O230'CF FB D3 CALLS ARG_COONT,G*LIBSSIGNAL™ ; Truly bite 
voce 93 4 rstt TATUS 3 Bid ye exit with an error code? 
: we 
007410E2 8F 06 E MOVL #UE TP$_ABENDD ! STS$SK_ERROR, - ; Supply a generic one otherwise 
O1EE'CF E STATUS 


J.1 
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10EB 61 208: 
QIEE'CF 10000000 8F C8 1} 4 ° Hy 


SSM_INHIB_MSG,STATUS ; Don't print messages twice! 
10F Tus ; i 


; Exit in error 


K1 
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-SBTTL Exit Handler 


+4 

; FUNCTIONAL DESCRIPTION: 

: Lie. Ra og onendtes cleanup at exit. If the MODE bogical oy is 
covet a the routine will update the test ts 

U TINIDEV. DAT file depending on the UETUNTSM_TESTABLE 
odd FLAGS field of the unit block for each unit fo 

under test. 


; CALLING SEQUENCE: 
; Invoked automatically by SEXIT System Service. 


Lag canes in the 
r the device 


; INPUT PARAMETERS: 
, STATUS contains the exit status. 

LA has synchronizing bits 
DDB_RFA contains the RFA of the DDB record for this device in UETINIDEV. 


: IMPLICIT INPUTS: 

3 UNIT_LIST points to the head of a doubly Linked circular List of unit 
: locks for the device under test. 
: OUTPUT PARAMETERS: 

3 NONE 


; IMPLICIT OUTPUTS: 
; Various files are de-accessed, the process name is ro and any 
TF the he synchronization with UETP EVO1 is carried ou 
oF en’? cal name is equated to ‘ONE’, the rout ine will update 
n the UVETINIDE par’ file dependin 
UETUNTSA. tee ABLE flag state in the UETUNT 8. FLA s° field of the unit 
block for each unit for the device under test. 


; COMPLETION CODES: 

; NONE 

; SIDE EFFECTS: 
NONE 


EXIT_HANDLER: 
eWORD “M<R2,R3,R4,R5,R6,R7,R8,RI,RIO.RI1> ; Entry mask 


Sse Tse : cere s = 10. 3 Turn off System Service failure mode 
; We're finished - no more ASTs 
; Get the run mode 


OFFC 


ow 
=n 
2m 
‘aw 
zr 
AAS 
-—o 
BDEDS 


LLEN = = BUFFER PTR,- 
RSC BUF = AO_B 
BICB2 ALC Bitn. BuFER : Convert to upper case 
CMPB #*A70/ ,BUFFER : Is sats ° one shot? 

BEQL 108 ; BR if y 

BRW END_UPDATE : oR oy don' t update VETINIDEV.DAT 


BBS esate TO_UPDV.FLAG,20$ ; Only update if it's safe 
BRW UPDATE : Else forget it 


MOVAL INI_RAB,R10 ; Set the RAB address 


0014'°CF $0 
OO14°CF 4F BF 


0088 


03 0002°CF 02 
OOAF 


5A 2428°CF 


— 
So 
bad 


™~m 
oS 
bad 


Bo BB ANNAN IAAI AAAI A A A AAA AA A A A AA 


ROR tt MQOODODOOOSO OOOO OO OOO 000009 69 09 09 09 09 09 09 SII NIN NIN INS NOAA AOA Or 
=OODNA NE WIN 0 OD NAME WIN 9 OOD NIA UNE WWIN 9 O OD NAME WO OONAUE WN OOONOUM 


a a kk kk kk 
Ot BOO DOOCOOCOCOQOOCOOCOCOSOCOCOSCOSOOCOSOOOOOOOCOOCOOCO: 


ee ee eee ee et — | — be bons a nd bn nd ed cc a ca ca ca a na na ca occ oc na na na ona oc os ona Ponca on os os on a Pn ns oe oe os ns ns es es 
UNIO OC ON OWA BP ST on no 


— 
= <3 soSP 


VETLPAKOO 
v04-000 


1 
10 AA 246 
75 


if AB 
5B 0238'CF 00000238' 


oOo wCcoou 


02 0B 


58 
00000238 ' 8F 


ORIN Ww 


uw oo 
o "NOUWW Sa= oreo OT 


OO18'CF 4E 
3C 


58 
00000238 ' 8F 


24 
0014'CF 
OO14"CF 55 


—UInNoo moO 


oors'cr ae 
C4 

oc 

0188' 


7E _ 50 
6E 00741130 
00000000 ' GF 


0258' 


—" AMWO—TO 


m—oom —OF 
ono WO 


m wo 
o oOo 


PPR P PRR PREP PPE 


WWIWWIWINWWIWWIBBinonorornorornororg 


PWN O OO NAME WW 0 OD NAME WIN @O CONOAUE WO OONOAUE UMN 


PIE IPIP INIA II III) at rt a i i kk kk hd dt to 
VV === S8oy es WMMMMMOOOVVVIOOCOWWWD SP F OOO OWOWWO NNO 
POLES OOW MD OP OAWD LS MHS NN NAL OS PD PNM OO SVD OOOW SS HN MT > 


Heese seed SIPS IIS es tA AH HA Ses Is See 
NO 


woOormou—o 


UNIT_LOOP: 
BB 


10$: 


20$: 


MOVB 
SUPDATE 


BLBS 
UPDATE_FAILED: 
PUSHL 


CALLS 
END_UPDATE: 
TSTL 


BEQL 
SSETPRI_ 


BBC 


PUSHAL 


EXTZV 


PUSHAL 


CALLS 
PUSHL 


rom, 


SEP-1984 01:27:21 VAX/VMS Macro v04-00 
~$Ee=1382 8, 35:26 YOETP SRC SES PAROo MAR: 1 
i $4 tit eet ed tS ; Set RFA mode 
#6,D0DB_RFA,RABSW_RFA(R10) ; Set RFA to DDB Line 
RAB = TRIOS : 60 back to the DDB record 
0, UPDATE FAILED ; If failure then forget it 
#RABSC_SEG,RABSB_RAC(R105 ; Set back to sequential mode 
PUNITCIST.UNIT_CIST RV ; Set the unit block List header 
R 3; Init a counter 
#UETUNTSV_TESTABLE,- ; BR if this unit is not testable 
UETUNTSB_FLAGS (R11, 108 
Q ; Count testable units 
(R11),R11 ; Next unit block 
R11 ,#UNIT_LIST ; Are we full circle in the List? 
UNIf_LOOP : BR if not 
RS 3; Any testable units? 
20$ ; BR yes... 
#*A/N/ ,BUFFER+4 3 «else disable the DDB record... 
RAB = (R10) 3 ..ehere 
RO,UPDATE_FAILED ; If error then forget it 
(R11),R11 3; Next unit block 
R11,#UNIT_LIST 3; Are we full circle in the List? 
ce UPpATE ; BR if yes 
RAB = (R10) 3; Get a record 
RO, UPDATE FAILED : If error then forget it 
#L€_BITM, BUFFER ; Convert to uppercase 
#*A7U/ ,BUFFER : Is it a UCB record? 
END_UPDATE : BR if not 
#UETUNTSV_TESTABLE,- ; BR if this unit is testable... 
UETUNTSB_FLAGS(R115,20$ 
#*A/N/ BOF FER+4 3 ...else disable the UCB record... 
RAB = (R10) : l.chere 
RO,20$ 3; Look at the next record if no error 
RABSL_STV(R10) ; Do a simple message... 
3 .--to tell of the failure 
JNIDEV_UPDERR 
#STSSV_SEVERITY,- ; Copy the severity from RMS status... 
#STS$S_SEVERITY,RO,-(SP) 
#UETPS } 3 «..tO our message 


TEXT, (SP 
¥ eT LTBS SIGNAL 
ASE_PRIORITY 
S PRI = BASE_PRIORITY ; 


#LASV_MCVALID,- : 
LAL _DEVDEPEND.208 : 


#LASO_MCTYPE ,MLASS _MCTYPE, 


LA_L_DEVDEPEND MCODE_ TYPE 
COD YP 

#2, G*CPASLOADMC 

#0 : 


; Could we have changed our priority? 
; BR if not - don't try to reset 


Restore our base priority 


BR if there was... : 
«+-no valid microcode originally 
; Otherwise, try to... 


: si tireload the original microcode 
Set the time flag 


M \ 
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OOOF'CE DF 1228 247 PUSHAL [EST Wane ; Push the test name 
DD 122F 26 PUSHL # 3; Push arg count 
EF 4 | 4 EXTZV #STSS$V_SEVERITY,- ; Push the proper exit severity... 
1 & ¢ #STSS$S_SEVERITY,=- 
* ts F 1234 24 ES tod 
6E 07410 F C8 1238 2484 BISL2 err -ENDEDD, (SP) 3; ...and use it in our message code 
4 OD 123F 2485 PUSHL # 
51 E 00 1241 24 § MOVL SP,R1 
1244 24 SPUTMSG_S MSGVEC = (R1) ; Output the message 
1253 24 3 SSETPRN_S PRCNAM = ACNT_NAME ; Reset the process name 
04 ! ef : ; RET 3; That's all folks! 
1 3 491 -END UETLPAKOO 
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MSGV 
PTR 


Y 
“” 
= 
‘ 
3 
4 
a 
eid 
(= 


NAME 
R 


BEGIN 

BUF FE 
BUFFER 
CLOCK” SPE 
CNTRLUMSG 
COMMON 


K 
DIBSB_DEVCLASS 


VETLPAKOO 
Symbol table 


ACNT 
AD11 
CONT DESC 
COUN 
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1 X/VMS Macro V04-00 

Symbol table 1984 04: ‘fh UETP.SRC GETLPAROO MAR: 1 ) 
INADDRESS 1FAR LA_A_IGTBUF_1 C5D R 6 
INIDEV_UPDERR BB R LAWAW1GTBUE A¢ C54 R 
INI_FAB R LA_A_IGTBUF_ C4B R 6 
INI-R 428 R LACALIGTBUF 4 C42 R 
INPOT_ITMLST 6072 R 2 LACATIGTBUE . C39 R 6 
10$M_CTRLCAST eeereeee xX 6 LA-A_ G1BUF “6 C 9 ® 6 
10$_ SETMODE eeeeeeee § LA_A_IGTBUF_ R 
ITERATION 900 214 R LA_B_ADS OR 
IWTBUF _ARGL_1 AEC R LA_B_DAS 14 R 
IWTBUF ~ARGL~2 9 9 AFC R LA_B_DRS ¢ R ; 
IWTBUF ~BAD_ERR_MSG 0 at R LA_B_ICHN ER 
IWTBUF ~ CHET 00005 1R LA_K_LAMSKB 1A R 03 
IWTBUF -MISC_ERR_MSG FD R LA_K-OVERRU = A3 
JOB RITY = 00000 9 LA_L_DEVDEPEND 9 3F R 03 
JP1S_IMAGNAME = 00000 LA_L-IERROR 6 BR 0 
JPIS"PRIB = 00000309 LA_L_IND 02324 R 03 
JP1_EFN = 0000000 LA_L_IRATE OR 03 
LASR_ADMCODE = 0000000 LA_L-NBUF 4R 03 
LASK_DAMCODE = 9000000 LA_W_OWELL 900 AR 03 
LASK_MRMCODE = 00000001 LA_W_IPRSET 0232C R 03 
LASS_MCTYPE = 4 LA_W_LBUF 44 ; AR 03 
LASV_AD1 = 0000000 LA_W_LDELAY 8 0 CR 03 
LASV_DA = 00000007 LA_W_MODE 00 : R 03 
LASV_DIO1 = 4444 LA_W_NCHN 00002318 R 03 
LASV_MCTYPE = 00000001 LA_W_NUM 0000 $6 R 03 
LASV_MCVALID = 44 $4 0 LC-BITM = 00000020 
LALOADER_ IMAGE 0000636 R 02 LIBSSIGNAL aeeeeeee YX 06 
LALOADER_ PROC 00000626 R 02 LITERAL_O as CTH R 02 
LAST _FUNCTION = 000000 LITERAL_1 00000258 R 02 

_AK_BF 0000E578 R 04 LOADMC_CHEC QOOOOCC7 R 06 
LA_AK_BFNUM QOOOES7C R 04 LOAD_BAD_ER BRS RoS oC R 02 
LA_AK_BF NUM 0000E580 R 04 LOAD-MISC_ERR_MSG 0000032D R 02 
LA_AK_BFNUM4 00008 4R 04 LPASADSWP aeeneeee X 06 
LA_AK_BFNUMS 00 0E588 R 04 LPASCLOCKA aeeeeeee X 06 
LA_AK—BFNUM6 OO0E Ha R 04 ASDASWP teeeeree XX 06 
LA_AK_BFNUM7 ast F34 R 04 LPASDISWP keenenee YX 06 
LA_AK_BUF 11 444 $3 a 04 LPASIGTBUF eeaeneere X 06 
LA_AK_BUF 12 00001 g 04 LPASIWTBUF eeaeeeee KX 06 
LA_AK_BUF 21 444 38 R 04 PASLAMS eeareneer = X 06 
LA_AK_BUF 22 0009 00 R 04 LPASLOADMC aeeeeeee =X 06 
LA_AK_BUF 31 00004 R 04 LPASRLSBUF eeereene x 6 
LA_AK—BUF 32 05 R 4 LPASSETADC aeeeeeee =X 06 
LA_AK~BUF 41 § R 04 LPASSETIBF aereeeee § X 6 
LAZAK “BUF 4¢ R 4 LPASXRATE aeeneeee x 06 
LA~AK~BUF 5 8 a 4 LPA11K_PRIORITY 90000241 
LA_AK_BUF52 e 4 fal = 00000004 
LA_AK_BUF 61 A R 4 MAX_DEV_DESIG = 0000000A 
LAUAK“BUF 62 R 4 MAX~PROC_NAME = OOF 
LA_AK_BUF 71 C Rg 4 MAX" UNIT-DESIG = 5 
LAZAK“BUF 7@ D R 4 4 _ADBR BD R 
LA_AK— 1BUF E R 4 MCODE— IMAGLEN AC R 
LA_AK— IBUF E R 4 MCODE— [MAGNAM 6C R 
LA_AK— BUF E a 4 MC vee R 
LA_AK_IBUF4 E R 4 MGT BOF _SIZE E 
LA_AK—IBUF5 E R 4 MODE R 
LA_AK~ IBUF E3E8 R 4 MSG BLOCK 1C R 
LA_AK~ IBUF E4B0 R 4 MU_BEG_MSG DF R 
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ERR_MSG 
F CEN 
ED_PRIVS 
NOBE -° 
IT_SELECTED 
CTRONAME 
_ERR_MSG 
ITMLST 
ESS_NAME 
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NAKED 
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PRIB 

PROC 

PROC 


NAME 
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NEW 
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Symbol table -SEP=-1984 04:25:46 LCUET SGESLPAROO MAR: 1 vo 

TATUS OOOOOIEE R 63 SYSIN_RAB 394 R 
STRSUPCASE eeeKEHER X 6 SYSWP_ARGL_1 tS R 
STSSK_ERROR = 8 8 4 SYSWP_ARGL_2 4 R 
STSSK_INFO = S_MSG DB R 
STSS$K_SEVE = 4 TEST_NAME FR 
STSSK_SUCCESS = 1 TEST_OVERM = ¢ 
STSSK_WARNING = 9 8 TEST_OVERV = 
STSSM_INHIB_MSG = TEXT BUFFER = 12C 
STSS$S_FAC nO = THREEMIN 1DD R oe 
STS$S_SEVERITY = TIME_IT 529 R 6 
STS$V_FAC_NO = 1 TIME OUT EE R 0 
STS$V_SEVERITY = 8 0 TRANSFER_TABLE 8 DO R 8 
SUC_ERIT FO R 0 TTCHAN 00 R 
SUPBEV_GBLSEC 0 060 R 8 UETLPAKOO 300 00 RG 06 
SUP_FAB B88 474 R UETP = 00740000 

EP ~ B 001 UETP$_ABENDD = 007410560 

SWEEP_ARGL_1 0000888 R 0 UETPS$_ABORTC = BR eee 
SHEER -ARGL¢ QOOOOBES R 0 UETP$_BEGIND = 8 peng 
SWEEP_ARGL_ 00000910 R 0 UETP$_DENOSU = giro 
SWEEP_ARGL_4 44 854 R 0 UETP$_ENDEDD = 8 aah 
SWEEP_ARGL_5 00000968 R 0 UETP$_ERBOXPROC = Baas 
SWEEP_ARGL_6 444 94 R 0 UETPS_FACILITY = 820008 4 
SWEEP_ARGL_7 000009C0 R 0 UETPS$_OPENIN e 8 41098 
SWEEP” CHECR 0000 4h R 06 UETPS$_TEXT = 00741130 
SWEEP_C 0000 DR 06 UETUNTSB_FLAGS = 88 444 
SWEEP_COUNT 0000 Be R 03 UETUNTSB_TYPE = 0000000 
SWEEP_ERR_MSG 00000308 R 02 UETUNTSC_INDSIZ = 000 bee 
SWEEP- SECTION OOO00B5E R 06 UETUNTSM_ TESTABLE = 44 002 
SYSSASSIGN kkaneeee GX 06 UETUNTST_FILSPC = 00000014 
SYSSCONNECT keekeeee GX 06 UETUNTSV_TESTABLE = 44 4 
SYSSCRMPSC eeekeene GX 06 UETUNT$W_ SIZE = 000 $993 
SYSSDCLEXH kkeeeaere GX 06 UNIT_LIST 00000238 R 03 
SYSSEXIT kkeeeeee GX 06 NIT_LOOP BF O81 be R 06 
SYSSEXPREG kkeerere GX 06 UPDATE_FAILED Oe Os ee8 R 38 
SYSSFAO eeeeenee XK 06 USER_STAT 000022F8 R 0 
SYSS$GET eeeeenee GX 06 WRITE_SIZE = 00000800 
SYSSGETDEV eerereee 6X 06 XRATE_CHECK OOOOODSE R 06 
SYSSGETDVI eeeneeee GX 06 
SYSSGETJPI keanenee GX 06 
SYSSGETJPIW ekeekaere GX 06 
SYSSGETMSG eeeeeene GX 06 
SYSSHIBER eeekenee GX 06 
SYSSINPUT 00000061 R 2 
SYSSMGBLSC eeeneenre GX 6 
SYSSOPEN eeeneeee GX 6 
SYSSPUTMSG eeeerenre GX 
SYS$aQl0Ow eereerer 6X 
SYSSSCHDWK eeereene GX 6 
SYSSSETAST teerenee GX 6 
SYSSSETIMR eeeeeene 6X 6 
SYSSSETPRI eeeenene GX 6 
SYSSSETPRN eteeeeee GX 6 
SYSSSETPRV eeeneenee GX 6 
SYSSSETSFM teereree 6X 6 
SYSSTRNLOG eeeneene GX 
SYSSUPDATE generar 6X 
SYSIN_FAB 00002344 R 
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Psect synopsis “SEP=1984 04:25:46 CUETP.SRCJUETLPAKOO.MAR;1 
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H Psect _Synopsis e 


PSECT name Allocation PSECT No. Attributes 


. ABS . 000 44 ( -) 0O ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS Bo8 00 ( -) Q1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RODATA 8 OBEC ( 3052.) ¢ ( §°f NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
RWDATA bese? ( 9412.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
BUFFERS ih 4 (58772.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
SRMSNAM 0e5 ( ; -» 05 ¢ 5.) NOPIC USR ON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
LPA11K 0000125F ( 4703.) 06 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
feceessscueacsasusenenceces} 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
nitialization 7:00:00. :00:00. 
Initiali i 6 00:00:00.07 0:00:00.58 
eanens processing 132 Bp: 3: 9-82 00:01 09.00 
sano} table sort 2 00:00: 6-79 8880: 17 
Pass 2 53 on °8 08.4 0:00:20.10 
Symbol table output 2 00:00:00.34 00:00:00.78 
Psect synopsis output 1 00:0 +08 3 00:00:00.08 
Cross-reference output 0 00:00:00.00 es Be ge 
Assembler run totals 1366 00:00:41.71 0:01:34.76 


The_working set Limit was 1950 pages. 

169310 bytes (331 pages) of virtual memory were used to buffer the intermediate c 

There were 90 pages of symbol table space ailocated to hold 1716 non-local and 13° tocat symbols. 
2491 source Lines were read in Pass 1, "eerie object records in Pass 2. 

67 pages of virtual memory were used to define 59 macros. 
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Macro Library name Macros defined 


“$gsseoue fy ee aoatoye te. gue: 1 


SYSLIBJSTARLET. MLB; 2 5 
Totals (all Libraries) 5 


1932 GETS were required to define 53 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:UETLPAKOO/OBJ=OBJ$:UETLPAKOO MSRCS$:UETLPAKOO/UPDATE=(ENHS$:UETLPAKOO) +EXECML$/L1IB+LIB$:UETP/LIB 


T CORPORATION 


mnaiy AH-BT13A-SE 
4) PROPRIETARY 
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